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SEP=19 NETACP.SRCINETCNFACT.MAR; 1 (1) 
-TITLE WNETCNFACT = Configuration data base access action routi 
SIDENT _"V04-000! . psig 
-DEFAULT DISPLACEMENT,LONG 


—PARARARARAAAARALALALALA LAL ALA SALE LASSE EERE REET E REESE SEES EERE ERECT PETC ec ao 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE H E 3 
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pad: 
0 § :* 
ae 
0 1 :* WIT SUCH LICENSE AND WITH THE 
15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
0 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
8 1g :* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
0 17 3 
0 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
0 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
$0 he CORPORATION. 
0 § :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
0 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
0000 «98 is 
0000 %6 ITITIIIIIIILIIITITITITITITI TIT TiLi LTT T TTT LLL TTL iit ttt ti 
0000 B 
i444 4 3 FACILITY: NETWORK ACP 
0000 1 : ABSTRACT: 
0000 § 3 This module provides support to the NETACP database management 
0000 ; including database entry insertion and action routines to 
0000 4; retrieve data for parameters which are not stored in any of 
B58 2 3 the CNF control blocks. 
0000 7 : ENVIRONMENT: 
0000 8 ; The module runs in kernel mode and at prostate elevated IPL. 
0000 9; It is therefore locked into the ACP's virtural address space 
464 re $ in order to prevent the need for paging. 
0000 4¢ : Since the ACP is work-queue driven, and since it is the ACP 
0000 43 ; that modifies the structure of the non-paged pool data base 
B88 44 ; including the RCB (actually a VCB) and the private structures 
45 ; hanging off of the RCB, there is no need to obtain the system 
it $6 : data base mutex -- no races can occur. However, it is 
00 47 ; necessary to raise IPL in order to stop any races with 
000 48 ; NETORIVER. 
aE 
a8 1 3 AUTHOR: A.Eldridge 14-Feb-80 
6 § > MODIFIED BY: 
o 5; v03-038 PRBO336 Paul Beck $e~pun~ 1906 14:04 
§ 5 Allow SCSSYSTEMID match in area 1 without area in SCSSYSTEMID 
0000 3 SYSGEN parameter. 


. 
NETCNFACT - Configuration data base access action 16-SEP-1984 01:13: AX/VMS Macro V04-00 Pa 
64-000 ’ Breer 1obe Boi 1a:0e ARTA CS. CaeStevonracr.mars1 oe 


v03-037 RNGOO37 Rod Gamache 18-Jun-1984 
Logging of Data Base Entry re-used to log_counters routine. 
Fix termination of "sdgcency vector’ search on NDI scan 
when max address is 1 . 


V03-036 PRBO326 Paul Beck 28-Mar-1984 15:51 
Use SYSSSYSTEM instead of SYSSSYSROOT:CSYSEXE] for the default 
ile spec in the FAB, to allow search Lists to work correctly. 
Fix NDI_SCAN routine when used with LOOP NODES. 


v03-035 RNGOO3S Rod Gamache 15-Mar-1984 
Fix routines that access new LLI structure to get the XwB 
address from the LLI first. 


V03-034 ADE00S4 Alan D. Eldridge 16-Feb-1984 
Make changes to support converting the LLI to a ‘real’ database. 


v03-033 PRBO312 Paul Beck 4-Feb-1984 19:12 
Require local node name match SYSGEN parameters SCSNODEL/H 
if they are defined. 


v03-032 PRBO310 Paul Beck 26-Jan-1984 11:18 
Strip trotting *s"* from persed object filename string if it 
wasn't present in OBI,S,FID. This allows NETSERVER to make use 
of the installed version of an snoge (image activator will ignore 
installed version if explicit version number is specified). 
Also remove reference to NETST_TSKFAB, no longer used. 


v031 RNGOO31 Rod Gamache 13-Jan-1984 
Fix problem in previous fix, where it was attempting to 
delete the ‘‘dummy NDI"’. 


v030 RNGOO030 Rod Gamache 14-Nov-1983 
Fix deletion of NDI data block when entry was re-inserted 
into binary trees. 


v029 TMHO029 Tim Halvorsen 10-Jul-1983 
Allow normal NDI entries to use the CIRCUIT parameter 
so that a user can explicitly specify the path to a 
node. This is different than loop nodes, which always 
use our own address so that they are looped back to us, 
but similar in that the CIRCUIT parameter is used. 
Add support for local alias addresses. 


v028 TMHOO28 Tim Halvorsen 17-May-1983 
If we are an endnode, then return the designated router 
for the nearest Level router in the area database. 


v027 TMHOO27 Tim Halvorsen 20-Apr-1983 
Add Service (DLE) database support. 
Don't return dummy NDI in special NDI scanner if the 
starting CNF is non-zero or not the CNR. 


v026 RNGO026 Rod Gamache 29-Mar-1983 
Add code to support the binary balanced trees for the 
NDI database. 
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v025 TMHOO25 Tim Halvorsen 03-Mar-1983 
Use as bh filespec of SYS aVaTen. Ie object procedure 
name if object name starts with a ‘'$", 


Handle new Level rout ng routing enable tag in RCB. 
able e 


(because we are an endnode, or because its in another area), 
then return failure for the REA parameter (‘don't know’’). 


v019 TMHOO19 Tim Halvorsen 01-Oct-1982 
Make Phase II nodes 1 hop away, even though the minimum 
cost (eps vector says it’s unreachable (it's unreachable 
m Fhe. tester so that the routing messages to other nodes 
reflec ‘ 


Sssss 


v018 TMHOO18 Tim Halvorsen 16-Sep-1982 
Change name of routine to reset automatic counter timers. 
Add support for AJI Adjacency database. 


SOOOOOSOCOOOOOCOOCOOOOOOOSSooO: 


SOooooooooooo 


ooooooo 
SOoooooo 


0 13 ; 
at 
119 ; 
. 120 ; Always return “unreachable” if we cannot determine the 
121; next node to destination’’ of a remote node. 
0 1 ¢ 3 For non-area routers, make area database consist of the 
0 125 ; local area, with cost/hops/nexthop referring to the ‘nearest 
it : : ; level 2 router’. 
688 1 § : v024 TMHO024 Tim Halvorsen 14-Feb-1983 
1e7 3 Remove node proxy access parameter. 
0000 128 ; Add code so that the next hop on wey to remote areas are 
0000 129; returned with ‘next hop to destination’ and ‘‘output circuit’’. 
0000 130; Add endnode key defaulting. 
0000 131; Do not check new NDI address against executor max address 
0000 136 : if the NOI refers to another area, since our max address 
0000 133; doesn't apply to other areas. 
464 : : : Add support for EPIDs. 
: V H m Halvorsen -Jan- 
$009 1 023 TMHOO23 Ti l 08 1983 
3208 : i Fix some subroutine calls which were Linked out of range. 
$009 139 ; v022 TMHOO22 Tim Halvorsen 17-Dec-1982 
0000 140 ; Fix logical Link scanning (for things Like ‘active 
0000 141 ; Links’, etc.) so that it correctly matches the entire 
0000 16 3 node address, Ms pg de area number. 
0000 143; Add LLI PNA action routine, which suppresses the area 
0000 144 ; number in the node address if necessary. 
0000 145 ; Reformat TAD search key as well as ADD search key so. 
0000 146 ; that addresses without areas matching the corresponding 
0000 «147 ; NDI object key. 
0000 148 Optimize NDI BY_ADD a bit. 
000 150 ; v021 TMHOO21 Tim Halvorsen 05-Dec-1982 
000 151 ; Fix code which re-defines an NDI so that it correctly 
000 13 : adjusts the NDI vector. 
00 153 ; Fix SHOW NODE nnn (by number). 
00 154 ; Add NNN parameter, which is the node name corresponding 
Bp 133 3 to NND (to speed up the SHOW KNOWN NODES request). 
00 157 ; v020 TMHOO20 Tim Halvorsen 14-Oct-1982 
$8 138 : Add area routing support. 
+ $ If it cannot be determined if a node is reachable or not 
1 
168 
164 ; 
15 
ne 
188 : 
170 ; 
171 ; 
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v017 


v016 


v015 


v0O14 


v013 


v02-12 


v02-11 


v02-10 


v02-09 


v02-08 


v02-07 


“SEP=1 NETACP.SRCIJNETCNFACT.MAR; 1 (1) 


TMHOO17 Tim Petversen 01-Jul-1982 
Add node action Ryuttne to return the node address 
of the next node in the 5 aor to the remote node. 
Add executor PHA action routine, to return the NI physical 
address used 34 the current node. 
meets TGs. REACH to return the ADJ index, rather than 
the LPD index, and mod all callers to lookup th the 
appropriate information in the ADJ block. 


TMHOO16 Tim Halvorsen 30-Jun-1982 
Add entry point for applying a set of default values 
given a default table address. 


TMHOO1S Tim Halvorsen 16-Jun-1982 

Add support for SPI database. 

Fix a second ~~ in the logical Link collating sequence, 
which caused oop in the database traversal. 


TMHOO14 Tim Halvorsen —_, 

Remove all — specific to CRI mo LI = and 
move it into a new module NETCNF 

Remove all “explicit displacement ease titers from operands, 
and make the default = word for the entire module. 

Change gute CNF action routines to use the new action routine 
interface (NETCNF now automatically allocates a TMP buffer). 
Remove obsolete NUL action routines. 

Rename CNFST_MASK to CNFSL_MASK. 

Fix bug in logical Link cal let ine order, which sometimes 
caused a loop (sometimes finite) in the SHOW KNOWN LINKS 


display 
Rewrite "NETSTEST_REACH to use NETSFIND_LPD to get LPD address. 


TMHOO13 Tim Halvorsen 27-Mar-1982 
Fix code to translate an NMA parameter code returned by 
a datalink driver validation error to a NFB code. 


ADE00S2 A.Eldridge 25-Jan-82 
Get the number of DMC receive buffers from the PLI database 
instead of the CRI database. 


ADE00S1 A.Eldridge 22-Jan-82 
nee ba NFBSC _NDI PRX values of Sporn or ‘‘outbound"’ if 
explicit outbound defaults exist. 


ADE0050 og 19-Jan-82 
Added routine NENSEPELY FLT which roy default values 
to selected CNF parameters. 


ADE0044 A.Eldridge 06-Jan-82 
Removed the ‘retransmit timer’ (RTT) parameter from the 
circuit database 


ADE0043 A.Eldridge | 31-Dec-81 
Rename the Cl DECnet class driver anenentt to ‘'CN’. 


ADE0042 A.Eldridge 22-Dec-81 
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Added support for the logical-Link "RID" field 


VO02-06 ADE0041 Fer idge 14-Dec-81 
Added support we Line counters. 


v02-05 ADE0040 A.Eldridge 11-Dec-81 
Fix node counter bug that was returnin the Executor node 
counters for nodes which are unreachable. 


vO2-04 ADE0030 A.Eldridge 30-Nov-81 
Added support for zero counter event. 


v02-03 ADEN029 A.Eldridge 21-Jul-81 
Replace datalink (DLI) database with circuit (CRI) and 
phsyical Line (PLI) databases. 


v02-02 ADE0028 A.Eldridge 21-Jul-81 
Updated to support modified CNF data base interface. 
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9 J -SBTTL DECLARATIONS 
: ; INCLUDE FILES: 
4° $F ABDEF : File Access Block 
5 SNAMDEF ; File name bog 
§ SJPIDEF 3; SGETJPI definitions 
0 28 SNFBDEF 3 Network Function Block (ACP control Q10 defi nitions? 
$3 5 SNMADEF : Network Management (NICE protocol) definition 
60 SEVCDEF ; DECnet Event Logging symbols 
808 61 SDORDEF 3; Disconnect reason codes 
86 SCNRDEF ; Configuration Root block 
000 6 SCNF DEF 3 fontisuration data block 
000 64 SICBDEF 3; Internal Fonnect Block 
0000 65 SLLIDEF 3; Logical Link information block 
000 06 SLNIDEF 3; Local node information 
000 6 SLPDDEF 3; Logical path descriptor 
000 68 SADJDEF 3 Adjacenc contror * ock 
0000 69 SLTBDEF ; Logical-link tab 
0000 70 SNETSYMDEF : tht ot Lgronee n+ lle symbols 
0000 71 SNETUPDDEF ; sve bols used in private. NETACP interface to NETDRIVER 
0000 7 SNSPMSGDEF 3; DNA architecture definitions & message formats 
0000 7 SNDIDEF : Node information block 
444 a SRCBDEF 3 Reus ine Control Block (analogous to Volume Control 
3 bloc 
itd 7 SWQEDEF 3; Work Queue Element 
0000 7 SXWBDEF ; Network Window Block -- logical-link context block 
0000 78 SDWBDEF : DLE window block 
44 6 SUCBDEF 3; UCB definitions 
00000090 0000 81 UCBSQ_DWB_LIST = UCBSC_LENGTH ; && TEMP - MUST BE SAME AS NDDRIVER 
$83 BR 
0000 284 EQUATED SYMBOLS: 
$83 
00000024 49 6? NDI_ADD = CNFSC_LENGTH+NDI$W_ADD ; Define symbol for convenience 
0000 $89 ; 
$44 + ; Define special CNF flags for each database 
00000004 $000 38 NDI_v -t Loge = CNFSV_FLG_MRK1 ; Set for ‘‘lLoop’’ nodes 
00000005 4 93 NDI_V_LOCAL = CNFSV_FLG_MRK ; Set for the ‘local’’ node 
00000006 00 94 NDI_V_MARKER = CNFSV~FLG_MRK ; Set for ‘‘marker’’ node 


wey Car act - Conf 
-000 DECLAR 


0000 
BO 888800 
0000016 


i 
0000 


0040 


oS 
So 
So 
So 


4C 43 24 53 59 53 90099018"210E9009" 
45 44 4F GE SF 52 45 54 


00000000 
00000000 


0 
0 
4F 4E 24 53 59 53 00000008°010E0000° 
45 44 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
00000000 . 


9 
it ; OWN STORAGE 


1 
1 
1 
: 
15 SYSNODE_DESC: .ASCID ‘SYSS$NODE' ; 
316 CLUNODE_DESC:  .ASCID ‘SYSSCLUSTER_NODE 


~PSECT NET IMPURE ,WRT,NOEXE,LONG 
NDILL NACS: 


NDIZZ-COL: "BLRE ¥se3 ; 
»ALIGN LONG 
- QUAD 


DITQ"LNAME: — . QUAD 
DITLRAMEBUF: ‘BLKB 16 : 
OSB: -BLKB 8 3 


33 

4 

5 

$ NDI_Q_NAME : 
8 

9 

? 

§ «PSECT NET_PURE ,NOWRT ,NOEXE ,LONG 
4 

5 


17 
18 NDI_NLOGIN_VEC: : 
19 -CNFFLD ndi,s,nus : 
$0 -CNFFLD ndi,s,npw : 
1 -CNFFLD ndi,s,nac 3 
33 -LONG 0O ; 
4 NDI_PLOGIN_VEC: 3 
25 -CNFFLD ndi,s,pus ; 
6 -CNFFLD ndi,s,ppw 5 
7 -CNFFLD ndi,s,pac 3 
3 LO e 
0 OBI_LOGIN_VEC: : 
1 -CNFFLD obi,s.usr e 
§ -CNFFLD obi,s,psw : 
CNFFLD obi,s,acc : 
$0 LONG 0 3 
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NETACP.SRC NE TCNFACT MAR; 1 (3) 


; Remember number of non-null access 


Size of collate string, Device name 
+ node id + size. 


Descriptor of new nodename 
Descriptor of new Logical nodename 
Buffer for build logical node-name 


; 1/0 status block 


Descriptor for logical name 
* ; Descriptor for logical name 


; Vector of NDI nonpriv login field id's 


nonpriv user 
nonpriv password 
nonpriv account 


; Terminate the vecvtor 
; Vector of NDI priv login field id's 


priv user 
priv poseuers 
riv ac 


; Terminate th the vecvtor 
; Vector of OBI login field id's 


account 


; Terminate the vecvtor 


= 
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WIS 


The fot lowing macroes build a conversion table for Te counters 
) 


: into NICE mat. Each counter i.d. contain is bit encoded contain 
; formatting information as follows: 
; 8 ew 8 Wom 0 Bit 
> <1 >< width >< 0 >< counter i.d. > Field 
1 » $WIDTH_B = 1 Counter width specifier for bytes 
§ SWIDTH_W = § Counter width specifier for words 
SWIDTH_L = : Counter width specifier for lLongwords 


0000000 NETSC_NMACNT_SLZ = Aubin eb 3; Seconds since last zeroed 


-MACRO SCOUNT_ENT base,nice,pre,mod,count, width; Insert table entry 


. WORD <1815>!<<$WIDTH_ *width® >a13>!- 
<NMASC_'nice'’_‘Ccount'> 
. WORD ‘pre'stwidth'7 *mod''count’ - 
ase 
.ENDM © SCOUNT_ENT 


Counter flag, Counter width 
Nice counter i.d. 

Offset into internal structure 
minus internal structure base 


oo 


Sete Ge Ge Ge Ge 


-MACRO SCOUNT_TAB base.nicc.pre.mod. list 
. IRP A,<list> 
$COUNT ‘ENT base,nice,pre,mod,A 
~ LONG 0 
-ENDM S$COUNT_TAB 


Create counter formatting table 


Insert table entry 


Terminate the table 


SoOoOOooOoOoooooo°oo 
OOOOCCCooocoooooooo 


5O 09.0909 09 09.09 09 09 09 09 SI NINN NNN NN DD DD AAA AD ITI EB 


WO ODNA WE WIR OO ONAN EWN HO OO NIA AEN 0 OD NA UNE WI O OD NO UNE WH OOO 


CNT_FMT_BUFSIZ = 100 ; Size required to accomodate largest formatted 
3; counter buffer 
NDCSL_MRC = NDCSL_PRC 3& Setup synonyms until NETNPAGED.MDL is fixed 
NDCSL_MSN = NDCSL_PSN 
' NDC_CNT_TAB: ; Common node counter table 
' 
0 SCOUNT_TAB WOCSL_ABS_TIM.CTNOD, »NDC,,- 
‘ oo 
0 <BRC,L>,=- ; Bytes received 
p <BSN,L>,=- ; Bytes sent 
' <MRC,L>,=- ; Packets received 
‘ <MSN,L>,- 3; Packets sent 
: <CRC ,W>,- 3; Connects received 
‘ <CSN,W>,- ° 
<RTO,W>,- ; Response timeouts 
, <RSE,W>,=- ; Transmitted connect rejects due to resource 
- 3; errors 


: Connects sent 
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38 $3 > 
¢ 5 
4s RCB_CNT_TAB: ; Local node counters 
4s 38 SCOUNT_TAB RCBSL_ABS_TIM.CTNOD RCB.CNT_.© 
7C 400 <MLL,W>,=- : Maximum logical Links active 
7C = 401 <APL ,B>,= : Aged packet loss 
07C 40 <NUL,W>,= 3; Node unreachable packet loss 
07C 40 <NOL ,B>,= 3; Node eer packet loss 
07C 404 <OPL,8>,=- ; Oversized packet loss 
pet 405 <PFE,B>,=- 3; Packet Former error 
7 4 $ <RUL ,B>,= ; Partial routing update loss 
O7C & <VER,B>,=- : Verification rejects 
Baoe $38 . -; <KXRE,W>,- 3; Xmitted connect resource errors 


~-PSECT NET _IMPURE ,WRT ,NOEXE 


UNAMES : LONG 9 ; Returns 
UNAME : -BLKB 2 ; Returns 
PNAMES: LONG ; Returns 
PNAME : -BLKB ; Returns 


ITEM_LIST: 3; SGETJPI 

Oe, -WORD 12 :; Size o 

-WORD JPIS$_USERNAME 8 4.4. OF 

$000 ADDRESS UNAME : Address 
40° DRESS UNAMES ; Address 


PRSNAM:  S$NAM ESS = 255 
SYSFAB:  $FAB DNM = pot iad sa .COM>,=- 
NAM = NETST_P RSNAM 


-PSECT NET_CODE,NOWRT ,EXE 
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00000000 : 
0 
00 
00 
01 
00 
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resultant user name Length 
user name 

resultant process name length 
process name 


item List for logical Links 


f username buffer 


username parameter 
of username buffer 
of buffer to return Length 


OF RD 15 ; Size of process name buffer 
1 «WORD JPIS$_PRCNAM s 1.6. © presess name parameter 
00000054 - ADDRESS PNAME ; Address o t process name buffer 
00000050" 00 -ADDRESS PNAMES ; Address of buffer to return Length 
-LONG 0 ; Terminate the List 
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NETSSCAN_xxx = DEFAULT DATABASE SCANNER “-SEP=-1984 NETACP.SRCIJNETCNFACT.MAR; 1 
rr ; -SBTTL NETSSCAN_xxx = DEFAULT DATABASE SCANNER 
stg ; NETSSCAN_xxx = Scan database 
444 ; This co-routine is used to scan the database, and return to the caller 
445 ; (co-routine) for each entry in the database. These routines establish 
446 ; the order of the database entries, above that of the natural ordering of 
rr 3 the collating field. 
is : Inputs: 
43 : R11 = Address of CNR 
t2 3 R10 = Address of starting CNF (or 0 if to start at the beginning) 
09 434 : Outputs: 
0000 $28 : R10 = Address of CNF if dialogue aborted prematurely, else 0. 
000 18 ; The caller receives control on each database entry in List (via co-routine 
0000 459; call). 
000 460 ; 
44 red ; On input to co-routine: 
000 168 : RO = True if yi: was found. False if at end of List (R10 invalid) 
0000 464 ; R10 = Address of CNF entry found 
0000 465 ; 
0000 466 ; On output from co-routine: 
0000 467 ; 
0000 468 ; RO = CNFS_ADVANCE Advance to next CNF, continue dialogue 
0000 469 ; CNFS$_TAKE_PREV Return previous CNF, abort dialogue 
000 470 ; CNFS$_TAKE_CURR Return current CNF, abort dialgoue 
4 $2) 3 CNFS$_QUIT Return no CNF (R10 = 0), abort dialogue 
4 238 ; *** These routines must be abortable via a RET *#* 
0 474 ;--- 
000 475 
B08 476 NETSSCAN_LLI: ; Logical-Link scanner co-routine 
00 477 NETSSCAN_LNI: ; Local node CNF scanner co-routine 
of $78 NETSSCAN_OBI:: 5 Object CNF scanner co-routine 
0 479 NETSSCAN_EFI:: ; Event filter CNF scanner co-routine 
00 480 NETSSCAN_ESI:: ; Event sink CNF scanner co-routine 
000 481 NETSSCAN_SPI:: ; Server process CNF scanner co-routine 
000 ; ¢ DEFAULT_SCAN:: ; Default CNF scanner co-routine 
484 ASSUME CNFSL_FLINK EQ 0 
485 ASSUME CNFSLTFLINK EQ CNRSL_FLINK 
? $ ASSUME CNFSB_FLG EQ CNRS$B_FLG 
SA 05 09 4 8 TSTL R10 ; Already pointing to a CNF ? 
03 12 4 BNEQ 10$ ; If NEQ then yes 
SA 68 43 4 490 MOVAB SPO, ALTRI) LATS ; Get address of ptr to Ist CNF 
50 01 OD 7 491 198 MOVL #1,R ; Indicate success 
9E 16 QOOA 43¢ 20$ JS a(SP)+ : Call back our caller 
p : rh SDISPATCH RO,<- 
C 495 <CNFS_ADVANCE 30$> -; Advance to next CNF, continue dialogue 
O0C 496 <CNFS~TAKE_PREV, 40$> -; Return previous CNF, abort dialogue 


- 
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<CNFS$_QUIT, 4 fe ; CNF not found, abort dialogue 
" <CNFS-TAKE_CURR, 60$> =; Take current CNF, abort dialogue 
BUG_ CHECK NE TNOSTATE, FATAL 


30$:  MOVL  CNFSL_FLINK(R10),R10 
BBC #CNFS$O_FLG_CNR,- 
CNF$B_FLG(R10), 10 


Advance to next CNF 
If BC then iy is, not the CNR 
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CLRL RO : Say ‘‘no more CNFs' 
BRB 20$ ; Call back with the bad news 
0$ nove 5 oe LIME RD) TE $ ee a. to previous CNF 
R10 : Notify CNF pointer 
$ ; Return to caller, terminate dialogue 


er ceract = + 
v04-000 NDI 
00000000 

a 

0000014 

st 

7E 7 

ee 

00000000°EF 9F 

7E = D4 


se 
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13 
NETACP.SRCINETCNFACT.MAR; 1 (8) 
-SBTTL NDIDEF_SCAN = DEFAULT NDI DATABASE SCANNER 
NDIDEF_SCAN = Default NDI database scanner 
This co-routine is used to scan the database, and return to the caller 
(co-routine) for each entry in the database. ThIS routine establishS 
the order of the database entries, above that of the natural ordering of 
the collating field. 
Inputs: 


R11 = Address of CNR 
R10 = Address of starting CNF (or 0 if to start at the beginning) 


Outputs: 

R10 = Address of CNF if dialogue aborted prematurely, else 0. 
vine A gid receives control on each database entry in List (via co-routine 
ca 


On input to co-routine: 


RO = True if wg: was found. False if at end of List (R10 invalid) 
R10 = Address of CNF entry found 


On output from co-routine: 

RO = CNFS_ADVANCE Advance to next CNF, continue dialogue 
CNF$_TAKE_PREV Return previous CNF, abort dialogue 
CNFS$_TAKE_CURR Return current CNF, abort dialgoue 
CNFS_QUIT Return no CNF (R10 = 0), abort dialogue 

R1,R2 are destroyed. 


eee These routines must be abortable via a RET *** 


NDIDEF _SCAN:: ; Default NDI scanner co-routine 


Allocate some storage on the stack to hold the Last NDI 
returned to the caller. This makes backing up to the 
previous entry very easy. 


ORIGAP = 00 
CALLER = 04 
BTECOR = 
TEMPRG = 1 
CNFADD = § 
NODADD = 24 
CLRQ -(SP) 3 CNFADD(AP) = CNF address. 
3 NODADD(AP) = Node number (in vector) 
CLROQ (SP) 3; Make room on stack for temp save regs 
3; REF: TEMPRG(AP) 
PUSHAB NETSTRAVERSE_NDI ; Push next co-routine address 
3; REF: BTECOR(AP) 
CLRL -(SP) ; Return address to caller 


Register useage: 
R1 may be destroyed, by this routine, but must be preserved 
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v04-000 NDIDEF_ SCAN = DEFAULT NDI DATABASE SCANN eit 84:13:84 ENETACP. SREINETCNFACT MAR: 1 . 
D § 3; REF: CALLER(AP) 
ae 4 D PUSHL AP 3; Save the AP 
5C Fie F 7 MOVL 3 AP ; Save current stack pointer 
1C AE DD 4 2 PUSHL  28(SP) ; Copy return address to caller 
4 74 : 
4 75 ; Initialize ‘Last CNF’’ pointer. This is the pointer to the Last 
r 6 3 CNF processed and may actually be the CNR. 
SA 05 8 4 TSTL R10 3 Is there a current NDI 
93 is 04 7 BNEQ $ : If NEQ then yes 
SA on | Rep ? $$: MOVL R11,R10 3; Else start at the head of the List 
Oper ¢ . : Return to caller with “initialization complete” 
50 01 400 godt 4 MOVL #1,R0 : Initialization successful 
9E 16 O04F 5 JSB acSp)+ : Call back the caller, on return 
0081 286 ; RO = function to perform 
051 588 : The following code insures that if we are not called recursively, 
Ba) 289 ; = then we will always find the next NDI after the last one. 
5B «SA OCOD 51 254 CMPL R10,R11 3; Are we starting from beginning? 
51 13 0054 236 BEQL 8$ ; Br if yes, okay to proceed 
04 AC ge DO 0056 59 MOVL (SP)+,CALLER(AP) 3; Save caller's return address 
14 AC A oO OSA 594 MOVL R10, CNFADD (AP) : Save last CNF returned 
18 AC 12 AA 8B pOE 595 MOVW CNF $0 ID(R10) ,NODADD(AP); Save Last node address returned 
08 AC OO000000'"EF 9E 006 238 MOVAB WETS TRAVERSE ALT,BTECOR(AP) ; Set address of resume code 
OC AC ~~ stg 30 MOVQ R7, TEMPRG(APY 3; Save R7, R 
Oper 4 : Get the collating value for this NDI (R10) 
58 O0000004'EF 9 O06F 601 MOVAB NDI COL RE ; Get address of collate buffer 
53 58 00 o076 one MOVL R8,R : Copy output buffer address 
0367 8F 8 0079 604 PUSHR #*M<RO,R1,R2,R5,R6,R8,R9> ; Save registers 
QE44 0 0070 605 BSBW = NETSNDI_S “COL ; Get the collating value 
0367 8F BA +44 one POPR #°M<RO,R17R2,R5,R6,R8,R9> ; Restore registers 
, BS BS & 0084 one SUBL3 R8,R3,R7 ; Calculate Length of collate string 
OOD7'CF OF 80 610 PUSHAB W*160$ ; Push address of return 
OppOOOD EF 16 00 611 JSB NE TSRESUME_NDI : Call routine to build up stack 
5 8S 3 43 $16 MOVQ hg papal ; Restore R7, R 
5 E 9 61 BLBC RO,20$ ; Br if failure to proceed 
$e 50 01 34 9 614 BBS #1,R0,108 ; Br if take current 
51 0 000007 "EF — 009D 615 MOVAB 160$,R1 : Store return address 
002D =—‘31 bas 618 BRW 1408 ; And continue processing 
OA7 o13 ; Engage in a co-routine dialogue with the user. The scanner half 
A? 61 : of the dialogue owns the stack until the calling routine calls 
A? 620 ; back with any function code other than CNFS_ADVANCE; the other 
A? 621 : function codes causes the scanner to return t9 the caller with a 
4 ? § : clean stack thus terminating the co-routine dialogue. 
A? 626 : 
625 ; 
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v04-000 NDIDEF SCAN = DEFAULT NDI DATABASE SCANN ete 1 Oh: 13:84 ENETACP. SREINEYCNFACT MAR: 1 ” 
A 6 § 3 on galls to the co-routine calls to the SCAN routine. Therefore 
A ? 3 on initial input R1 will be zero, but will be what the caller 
. ? 8 : requires on output. The same goes for R2. 
94 AC 8E b0 A? 630 8S: MOVL (SP)+,CALLER(AP) ; Save callers address on stack 
1 OC AC 7D OOAB 631 MOVG —_TEMPRG(AP) ,R1 : Restore R1,R2 
AF 6 § SDISPATCH RO,- 3; Dispatch on function code returned by 
AF 6 <- 3; co-routine 
AF 634 <CNFS_ADVANCE 100$>,- ; Advance to next CNF, continue dialogue 
OAF 635 <CNFS_TAKE_PREV, 200$>,- ; Return previous CNF, abort dialogue 
AF 636 <CNFS_ ° $>,- ; CNF not found, abort dialogue 
AF : f : <CNFS-TAKE_CURR, 400$>.- ; Take current CNF, abort dialogue 
pee o7) BUG_CHECK NETNOSTATE, FATAL 
50 01 400 ¥ o¢) 10$: MOVL #1,R0 3; Indicate success 
OC AC 51 7D te: $48 20S: MOVQ R1, TEMPRG(AP) : Save R1,R2 
046 8C 16 $33 644 JSB @CALLER(AP) ; Call back the caller with status 
oc 11 0c 645 BRB 8$ 
O0OCB 646 
00CB 647 100$: H 
484 $68 : Advance to the next CNF. 
14 5A 00 O00CB 650 MOVL R10, CNFADD(AP) ; Save last CNF given back to caller 
18 AC 12 AA BO Oaee o3) MOVW CNF $W_1D(R10) ,NODADD (AP) ; Save last node # given to caller 
it 638 : Skip to next node in data base 
08 BC 16 0004 655 1408: JsB @BTECOR(AP) ; Skip to next node, call BTE co-routine 
€8 50 €9 OOD7 656 160$: BLBC R ; Br if error, don't pop stack 
08 AC BE DO OODA 657 MOVL  (SP)+,BTECOR(AP) : Else, save return address 
06 £0 00D 658 BBS #NDI_V_MARKER,=- ; Never return the marker CNF 
F1 OB AA OE 659 CNFSB_FLG(R105 ,140$ 
DA 11 OOE 660 BRB 108 3; And return CNF 
O0E 661 
BER 662 2008: _ ; 
BER o37 ; The caller wants to take the previous CNF 
5A 14 AC 09 Ee 665 MOVL CNFADD(AP) ,R10 ; Get previous CNF address 
02 1 Ree 4 BNEQ 400$ ; Branch if none 
=. O38 ; The caller wants to call it quits 
SA D4 3 $70 300$:  €LRL R10 : Nullify CNF pointer 
$2 O76 : The caller is done with the scan and wants the stack back. 
50 O04aC D ED 674 400$: MOVL  CALLER(AP),RO ; Get caller's return address 
5E 2f D Fl 675 MOVL AP, SP ; Restore original stack pointer 
C 8—D F4 976 POPL AP ; Restore original AP 
7s wt € F7 3867 ADDL #7*4,SP ; Pop scratch storage 
60 1 ne ors JMP (RO) 3; Return to caller 
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§ 1 . -SBTTL NETSSCAN_NDI = SCAN NDI DATABASE 

? § ; NETSSCAN_NDI = Scan NDI database 

685 ; This co-routine is used to scan the database, and return to the caller 
6 § ; (co-routine) for each entry in the database. These routines establish 
687 ; the order of the database entries, above that of the natural ordering of 
? 8 ; the collating field. 

690 ; Inputs: 

691 

69 R11 = Address of CNR 

88 R10 = Address of starting CNF (or 0 if to start at the beginning) 
44 ; Outputs: 

637 R10 = Address of CNF if dialogue aborted prematurely, else 0. 


: Le FY nal receives control on each database entry in List (via co-routine 
call). 


On input to co-routine: 


RO = True if mr was found. False if at end of List (R10 invalid) 
R10 = Address of CNF entry found 


; On output from co-routine: 

RO = CNFS_ADVANCE Advance to next CNF, continue dialogue 
CNFS$_TAKE_PREV Return previous CNF, abort dialogue 
CNFS_TAKE_CURR Return current CNF, abort dialgoue 
CNFS_QUIT Return no CNF (R10 = 0), abort dialogue 


R1,R2 are destroyed. 
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*e These routines must be abortable via a RET *** 
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jae 


NETSSCAN_NDI:: 3; Find next NDI block 
ASSUME CNFSL_FLINK EQ 0 
ASSUME CNFSL_FLINK EQ CNRSL_FLINK 
ASSUME CNFSB_FLG EQ CNRSB_FLG 
09 =«é«é€=# BBC #NETSV_INTRNL ,- ; If BC then external and so we are 
03 00000000'EF NETSGL-FLAGS, 10$ : interested in ‘phantom’ NDI CNFs 
FF2A 31 BRW NDIDEF_SCAN ; Else, only “‘real’’ NDI CNFs 


10$: 
Allocate some storage on the stack to hold the Last NDI 
returned to the caller. This makes backing up to the 
previous entry very easy. 
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v04-000 NETSSCAR NDI = SCAN NDI DATABASE misery O4:13:84 ENETACP. SREINETCNFACT MAR: 1 . (9) 
000001 107 7 CNFADD = 
SSG gta Ts Ge 2 
E C€ 0107 740 CLRQ -(SP) ; CNFADD(AP) = CNF address. 
109 741 3 NODADD(AP) = Node number (in vector) 
7E 7C 0109 rg CLRQ -(SP) ; Make room on stack for temp save regs 
Se 38 74 CLRQ -(SP) 3 REF: TEMPRG(AP) 
QOOOOOOO'EF OF O01 744 PUSHAB NETSTRAVERSE_NDI 3; Push next co-routine address 
11 745 3; REF: BTECOR(AP) 
7E D4 O11 £8 CLRL -(SP) ; Caller'’s return address 
11 74 3; REF: CALLER(AP) 
5C DD O11 748 PUSHL AP 3; Save the AP 
5¢ SE 00 Q11 749 MOVL F AP 3; Save current stack pointer 
24 AE 0D OH1D £29 PUSHL 6(SP) :; Copy return address to caller 
11D) 75 : 
110 3g 3 Initialize “Last CNF’' pointer. This is the pointer to the Last 
1 £38 : CNF processed and may ac’ "lly be the CNR. 
SA D5 0110 756 TSTL R10 3; Is there a current NDI 
03 12 O11F 757 BNEQ 20$ ; If NEQ then yes : 
SA 5B 00 3 } £38 208 MOVL R11,R10 3; Else start at the head of the List 
0 : £60 3; Return to caller with “initialization complete” 
50 01 dO 0124 76 MOVL #1,R0 3; Initialization successful 
9E 16 0127 76 JSB a(SP)+ : Call back the caller, on return 
+ | tee 3; RO = function to perform 
0129 766 : The following code insures that if we are not called recursively, 
3 for : then we will always find the next NDI after the last one. 
58 SA Di 0129 769 CMPL R10,R11 ; Are we starting from beginning? 
55 13 4 Cc 770 BEQL ; Br if yes, okay to proceed 
50 00 obi O12E 771 CMPL #CNFS_ADVANCE ,RO ; Are we aguens tog 
50 is 0131 ak BNEQ 40$ ; Br if not, don't have to setup stack 
04 AC 43 3 BI es 77 MOVL (SP)+,CALLER(AP) : Save caller's return address 
14 A 5 D 1 774 MOVQ R3, TEMPRG(AP) ; Save R3,R 
08 AC e's 9E 01 775 MOVAB NE TSTRAVERSE ALT,BTECOR(AP) ; Set address of resume code 
OC A , oo 1°83 £78 MOVQ R7,SAVREG(APY 3; Save R7, R8 
Bite ore ; Get the collating value for this NDI (R10) 
0156 30 0147 780 BsBW GET_COLLATE ; Get the collate value from NDI 
14A 78 3; Contine where we left off in previous call, use collate value to 
174 + 3; find BITE entries to rebuild the stack for subsequent calls. 
54 SA D0 QI4A 785 MOVL R10,R4 ; Save original CNF address 
0256°CF 9F 0140 7 § PUSHAB W* ; Push address of return 
OOOO00000'EF 16 0151 7 JSB NE TSRESUME _NDI : Call routine to build up stack, using 
157 788 ; _the collating value 
57 of AC 7D 0157 789 mOVa SAVREG(AP) ,R7 3; Restore R7, R 
530 24 GOL 138 790 MOVZWL NDI_ADD(R4S ,R3 : Get the last node address 
A EF O1SF 791 EXTZV #TR&$V_ADDR_AREA,- ; Get the area number 
3s 161 O36 #TR4$S_ADDR_AREA,R3,R3 
4 Dd 0164 79 PUSHL R4 3; Save old CNF address 
54 O0000000'EF DO 0166 794 MOVL NETSGL_PTR_VCB,R4 ; Get the RCB address 
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v04-000 NETSSCAR NDI = SCAN NDI DATABASE met 5:13:84 ENETACE. SREINETCNFACT MAR: 1 ° 
0088 C4 23 3 1 795 CMPB 3 RCBSB_HOMEAREA(R4) ; Is this in our area? 
42 13 «01 196 BEaL «=s«9$ : Br if yes, continue with our area 
5E 9 C 1 79 ADOL +38 14 : Else, clean up stack 
07 50 €9 0177 198 BLBC = RO, 308 : Br if failure to proceed 
28 50  =01 50 17A 079 BBS #1,R0,60$ ; Br if take this one (next in tree) 
oop2 31 7 0 a BRW 186$ : Else continue processing of tree 
181 § - ; We could not continue with last node given, so we will 
} : b2 : see if last was the DUM NDI and if so, try to continue anyway. 
26 «11 #0181 805 RB 80$ ; Should always leave now 
1 86 a CMPL R10,NETSGL_DUM_NDI : Is this the dummy NDI? 
1 33 BNEQ 80$ ; Br if not, no more NDIs 
18 08 3:88 MOVL R11,R10 ; Start from beginning of List again 
01 09 5:88 MOVL CNRSL_COLBTE(R11),R2 ; Get the collate tree root 
4 19 ig? BRB 110$ 3; And start with our area 
Bis \§ : Engage in a co-routine dialogue with the user. The scanner half 
18 81 ; of the dialogue owns the stack until the gett ing routine calls 
018 814 ; back with any function code other than CNFS_ADVANCE; the other 
018 815 ; function codes causes the scanner to return to the caller with a 
gis gig ; clean stack thus terminating the co-routine dialogue. 
S183 818 : Register useage: 
0183 819 3 Ri may be destroyed, by this routine, but_must be preserved 
Biss : 0 3 on calls to the co-routine SCAN routine. Therefore, on intial 
1 1 3 input R1 will be zero, but will be what the caller requires 
8133 § ¢ ; on output. The same goes for R2. 
04 AC 8E DO 0183 824 MOVL  (SP)+,CALLER(AP) ; Save calier's return address 
51 OC AC 7D 0187 825 MOVG  SAVREG(AP),R1 : Restore R1,R 
14 AC 53 7D 0188 826 MOVQ R3, TEMPRG(AP) 3; Save R3,R4 
54  Q0000000'EF DO 018F $44 MOVL NETSGL_PTR_VCB,R4 ; Get RCB pointer 
3136 H 8 SDISPATCH RO,=- : Dispatch on function code returned by 
196 $9 <- : co-routine 
0196 830 <CNFS_ADVANCE,  100$>,- 3; Advance to next CNF, continue dialogue 
0196 S3 <CNFS_TAKE_PREV, 200$>,- ; Return previous CNF, abort dialogue 
0196 3 <CNFS$_QUIT, >.> : CNF not found, abort dialogue 
B19 8 7 3 <CNFS_TAKE_CURR, 400$>,- : Take current CNF, abort dialogue 
BIA s BUG_CHECK NETNOSTATE,FATAL 
50 01 00 18 7 60$: MOVL #1,R0 :; Indicate success 
9¢ AC 51 7D 1A9 5 80$: mova R1,SAVREG(AP) ; Save R1,R 
5 14 AC 7D 1AD 40 MOvVa TEMPRG(AP) ,R3 3; Restore R5,R4 : 
04 BC 16 0181 41 JSB @CALLER(APS ; Call back the caller with status 
CD Ooi? 1 rk BRB $ 
5A 8E 00 188 rf 90$: MOVL (SP)+,R10 ; Restore CNF address 
1B9 6 100$: ; 
+34 r 3 Advance to the next CNF. 
189 : 38 NOTE that the following 2 instructions don’t work too well when 
13 29 3:88 R10 is pointing to the CNR. 


; 
a 


] 
NETCNFACT - Configuration data base access cetlos 16-SEP-1984 01:13: AX/VMS Macro v04-00 Page 19 | NE’ 
v04-000 NETSSCAR_NDI = SCAN NDI DATABASE Set} 7 83:13:84 NETACP.SRCIJNETCNFACT.MAR; 1 . (9) | vo 
1¢ AC SA 0 0189 5 MOV R10, CNFADD (AP) ; Save Last CNF given back to caller 
33 12 AA 5c 1BD 38 MOVZWL CNF$W_ID(R10),R3 3; Get current node address | 
0 AC 3.6CO# 1C1 4 1108 OVW R3,NOBADD (AP) : Save last node # given to caller 
A fF ite 2? 1208 EXTZV #TR4$V_ADDR_AREA, - ; Get the area of the current node 
50 53 1¢ § #TR4$S_ADDR_AREA,R3,RO 
0088 C4 9 1CA 85 CMPB =s- RO, RCBSB_HOMEAREA(R4) =; Is this our area? 
0 1 1CF 28 BEQL 146$ ; Br if yes, check all nodes in area 
OO7F 31 18) 23 BRW 180$ ; Else, traverse the tree 
1D4 61 $ Process nodes in our area. Use NDIs if they exist, else 
1D4 6 ; use the DUM_NDI if the node is reachable. 
104 
33 B6 0104 8 1408:  Incw a 3; Get next node address 
OE AS 5 Bi 01D6 65 CMPW R3,RCBSW_ADDR(R4) ; Is this the local node? 
FB 413 «O1DA 66 BEQL «=s«+140$ : Br if yes 
00 EF 0O1DC 6 EXTZV #TR4$V_ADDR_DEST,- ; Get the node number within the area 
50 53 OA 1DE 68 #TR4SS_ADDR-DEST,R3,RO_ ; 
48 13 OE +4 BEQL 1 ; Br if wrap-around (max address = 1023) 
SA AG 22 B1 ies 0 CMPW " RCBSW_MAX_ADDR(R4) : Is the node still in our area? 
45 1A ONE 71 BGTRU 150$ : Br if not 
43 04 O1E9 Le CLAL -(SP ; Clean up stack 
0¢ AE 5 90 O1EB 7 MOVB R3 ay) ; Stuff low byte of address 
50 5 BF 4678 «OFF 87% ASHL #-8.R : Shift down the high byte 
01 AE 465090 O1F4 75 OvB RQ. 1 (SP) : Stuff high byte of address 
5 03 1F8 76 MOVZBL oR7 : Set length of string 
58 SE 0 gee {AG OVL P,R8 3: Point to string 
1F 78 CLRL 16 : Start from begining 
020 879 PUSHQ 3 3; Save node address, RCB address 
020 880 BSBW my OP tem 08 ; Try to get the real 
0206 881 POPQ R ; Restore node address, RCB address 
5E CO 0209 Ht ADDL #4,SP : Clean up stack 
9750 €8 0 BE 88 BLBS 0,60 3; Call back caller with success 
00 EF O20F 84 EXTZV #TR4SV_ADDR_DEST,- ; Get the node number within the area 
50 53 OA 0211 85 #TR4$S_ADDR_DEST,R3,RO ; 
1C 8440 85 0 14 $ TSTW  a@RCBSLPTR_OA(R4SCROJ =: Is it reachable? 
BA 1 YS Ht BEQL 0$ ; If EQL then unreachable 
3 bss ; Point R10 to the dummy NDI, and set up the NDI fields 
5A  Q0000000"EF 00 1A 91 MOVL NETSGL_DUM_NDI,R10 3; Else, use the dummy NDI 
6A 7C 1 38 CLRQ (R10) ; Clear BIE pointers 
24 AA 53 «2B ; 9 MOVW R3,NDI_ADD(R10) 3 Stuff the address 
12 AA 53 0 894 MOVW R3,CNFSW_ID(R10) ; Here too 
FF78 1 ; 4 1508 BRw 60$ 3; Call back caller with success 
E 39 3; We have exhausted all NDIs within our area, so we must now 
E 98 : find out where to pick up again in the collating tree. Skip 
: i+ ; all NDIs in our area. 
53 07 901 bECL R ; Back up in case we have full area 
3 0 9 § TSTL R 3; Was there a last node? 
1 .] BEQL 190$ ; Br if not, failure 
oA EF 4 904 EXTZV #TR4$V_ADDR_AREA,- ; Get the area of the current node 
53 653 6 § 905 #TR4$S_ADDR_AREA,R3,R3 : 
98 Bf 18 9 $ 160$: JSB @BTECOR (AP) 3; Skip to next NDI, call BIE co-routine 
A50 € 24 BLBC R $ ; Br if failure, don't pop stack 
08 AC BE DO O23F 908 MOV.  (SP)+,BTECOR(AP) : Clean up stack 


NETCNFACT - Configuration data base access action 16-SEP-1984 01:13: AX/VMS Macro V04-00 Pa 2 
v04-000 NETSSCAR_NDI = SCAN NDI DATABASE aise Oh: 13:84 ENETACP. SREINEYCNFACT MAR: 1 - ty 
04 £0 4 09 BBS #NDI_V_LOOP,=- ; Br if this is a LOOP NODE 
08 OB AA ‘3 $10 ENE SE FLG(R10),170$ 
OA ED 024 1 CMPZV  #TR4$V_ADDR_AREA, - : Is this our area? 
6 4A aig #TR4$S_ADDR_AREA,=- é 
53 12 AA 48 1 CWE SW _TD(RIO) .RS 3 
3 15 q 914 BLEQ 0$ ; Br if yes, skip this CNF 
FF 31 5 31? 170$: BRW 60$ ; Else, return the CNF 
3 319 180$: ; 
: p to next node in data base 
2 318 Skip t t node in data b 
0 1 0 jSB @BTECOR(AP) : Call back co-routine 
08 BF £8 23 3 1 185$:  BLBC ab Sos ; Br if failure, don't pop stack 
08 AC BE 00 0259 9 ¢ MOVL ($P)+,BTECOR(AP) ; Else, save return address 
06 €1 0250 9 BBC NDI_V_MARKER,=- 3; Never return the NDI marker 
EE 08 AA 6 SF «984 CNFSB_FLG(R105 ,170$ 
53 4 AA 3 oe 925 MOVZWL NDI _ADD(R10),R3 ; Else, get the node address 
FFSC 1 #0 oe 2 § BRW 1208 3; Skip this CNF 
0 os 8 69 928 190$: CLRL RO 3 sey "no more CNFs*’ 
FF3B 1 osce 929 BRW 80$ : Tell caller the bad news 
RE aos: 
0 43 o38 ; : The caller wants to take the previous CNF 
SA 1C AC 9 $f 934 MOVL CNFADD (AP) ,R10 ; Get previous CNF address 
ae 027 935 BEQL 00$ : Branch if none 
00000000" EF rf } 8 A aa9 cert at NETSGL_DUM_NDI 3 is this 3 phonten NDI (from vector)? 
3 not, go w 
50 20 AC 26 8 7d 486938 MOVW NODADD (AP) ,RO ; Get previous node address 
24 AA 50 «OB 1 939 MOVW  RO,NDI_ADD(R10) : Stuff the address 
12 AA 50 BO 0285 940 MOVW RO, CNFSW_ID(R10) ; Here too 
02. «11 0 9 ae) BRB 406$ 3 Take common exit 
Hs 308 300$: 3 
0 3 Bee ; The caller wants to quit 
SA 4 88 346 CLRL = R10 ; Nullify CNF pointer 
i 948 : The caller is done with the scan and wants the stack back. 
53 14 AC 7D 028D 950 4008: MOV —TEMPRG(AP) ,R3 ; Restore R3,%4 
50 O4AaC OD 91 951 MOVL CALLER(AP) ,RO 3; Get caller's return address 
5E 2f D 33 926 MOVL AP, SP ; Restore original SP 
C BED 9 95 POPL P 3; Restore AP 
5E 264 ¢ 98 954 ADDL #924 ,SP ; Pop scratch storage 
60 1 : 955 JMP (RO) 3; Return to caller 
A 328 3+ 
- 328 ; Get the collating value for this NDI, whether it's a real NDI or not. 
AO 960 : Inputs: 
A 30 : R10 = NDI address (maybe DUMMY NDI) 
~ 306 ; R7,R8 are scratch 
A 964 : Outputs: 
A 965 ; R10 = NDI address 


vbu=000 weSECELRESTO*SEREBESARSGREE 807 TERRES RUTS7 YANNI. Rete. YOCZ2O, a P88 3 


¥9 § : R7,R8 desciptor for NDI collate string 
A : R3 is destroyed. 
A o 
A 71 GET_COLLATE: 
8 "EF A 7 MOVAB NDI_2 COL RB : Get eddress of collate buffer 
‘EF «6SA OD A 7 CMPL = R107NETSGL_DUM_NDI : Is this the dummy NDI? 
aon 2 A 74 BNEQ 50 ; Br if po . $25 £9) Late value 
68 B 75 CLRL (R8) 3; Else — LATE VALUE 
oe “e $¢ AA B 6 MOVB NDI_ADD(R10) ,2(R8) ; Set Les by e ty —s ieireas 
A 5 AA 8 7 MOVB NDI~ADD+1(R16),1(R8) : Set high te of node address 
57 1) BC 4 MOVL #3,R : Set size o "9 
1 1 of 444 BRB 90$ 3; Continue 4 + sol ate value 
53 58 00 3 981 50$ MOVL R8,R3 :; Copy output buffer address 
0367 8F 8 C4 3 : PUSHR #*M<RO,R1 Re. R5,R6,R8, R9> Save registers 
gery C8 9-984 BSBW NETSNDI_S col get the collating value 
0367 8F BA SS 4 5 POPR PENCROLRY R2,R5,R6,R8, RS; Restore registers 
je So Mee cf 2 ; SUBL3 R8,R3,R7 ; Calculate size of collate string 
05 pS 989 90$: RSB 
0204 990 


a a tn a aa aaa aaa caemcaae aaa ana mene ae a 


¢ 9 
a -= = . 74 cao 
Vucopo NEFSSCARC ADL o SeAM aot BATAGASE wae ge 1E- E-1obe Oat 89 LENCE SRE SNE ENF ACT MARS 1 _— (96) 


+1 3 -SBTTL NETSSCAN_AJI = SCAN AJI DATABASE 
D4 34 ; NETSSCAN_AJI = Scan AJI database 
D4 $8 : This co-routine is used to scan the database, and return to the caller 
D4 97 ; (co-routine) for each entry in the database. These routines establish 
D4 38 ; the order of the database entries, above that of the natural ordering of 
+ , 3 ; the collating field. 
D4 1001 : The search uses a — CNF which contains two pieces of information 
D6 (1 § ; (as well as supplying a yelte CNF address): A identifier describing 
D6 3; the current ad} cency being processed, and an identifier describing 
+ ! : 3; the previous a Jecenty (so we can go backwards). 
D4 1006 ; Inputs: 
D4 (1 89 : . 
D4 (1 38 : R11 = Address of CNR 
o + ! 3 3 R10 = Address of starting CNF (or 0 if to start at the beginning) 
D4 1 ; Outputs: 
+ : 18 : R10 = Address of CNF if dialogue aborted prematurely, else 0. 
D4 1015 ; The caller receives control on each database entry in List (via co-routine 
+ : 6 3 call). 
+ 4 : On input to co-routine: 
D4 i 0; RO = True if if was found. False if at end of List (R10 invalid) 
+ 8 1 3 R10 = Address of CNF entry found 
. 19 § > On output from co-routine: 
D4 19 5; RO = CNFS_ADVANCE Advance to next CNF, continue dialogue 
D4 18 $ 3 CNFS_TAKE_PREV Return previous CNF, abort dialogue 
| 3 CNF$_TAKE_CURR Return current CNF, abort dialgoue 
+ + $ 3 CNFS_QUIT Return no CNF (R10 = 0), abort dialogue 
D4 6 $ ** These routines must be abortable via a RET *#* 
D4 1032 ° 
D4 1 § NETSSCAN_AJI:: ; Adjacency scanner co-routine 
SA 0 D4 1034 TSTL R10 3 Already point ing to a CNF ? 
s D6 «©1035 BEQL 5$ :; If EQL no ns to common CNF 
SA 5B O#Ds«02D8 1 $ CMPL 11,10 : At head of list ? 
OE 12 DB 1 BNEQ 10$ 3; If NEQ no, assume R10 is valid 
SA 00900000" F 3 DD 1038 5$: MOVAB NETST_CNF_AJI,R10 : Point to internal dummy CNF 
12 AA 01 2B 4 1 MOVW #LPDST_LOC_INX ENF SW_1D(RI0) - Initialize search context 
24 AA B4 EB 104 CLRW CNFSC_CENGTH(R{ ) > Initialize previous entry context 
50 1 00 EB 104 198: MOVL #1,R : Indicate success 
a ee 1 4g 20S: JSB a(SP)+ ; Call back our caller 
: ! o7 SDISPATCH RO,<- 
FO 1045 <CNFS_ADVANCE 30$> =; Advance to next CNF, continue dialogue 
FO 1 46 <CNFS-TAKE_PREV, 40$> -; Return previous CNF, abort dialogue 
FO 104 <CNFS_QUIT, > -; CNF not found, abort dialogue 
FO 1048 <CNFS-TAKE_CURR, 60$> -: Take current (NF, abort dialogue 


d 9 
= Configuration data base access action 16-SEP-1984 01:13: AX/VMS Macro Vv04-00 Pa 3 
NETSSCAR_AJI ~ SCAN AJI DATABASE ae ae 94:13:84 NETACP. sR t5N NETCNFACT.MAR; 1 a (7) | 
FO 4 > 
F : BUG_ CHECK NE TNOSTATE,FATAL 
12 AA BO 1 30$: MOVW CNFSW_1D(R10) ; Save current position 
¢4 AA 1 CNFSC“LENGTH(A10) 
AA 6 1054 35$ INCW CNF mt Sh ; Advance to next ADJ slot 
12 AA 1055 MOVZWL CNFSW_ID(R10),R ; Get ADJ index 
50 O0000000'EF od 1 6 MOVL  NETSGC_PTR Veber : Get RCB address 
68 A 8 8B 13 cH RCBSW_MAX ChbN ROD ; Within range? 
1A 0317: 1 38 BGTRU § f not, terminate search 
50 ec B0468 00 0319 1 MOVL @RCBSL_PTR ADC png a, $f. ADJ address 
€3 0 3 5 1 44 BBC #ADJSV. INUSE , ADJ 3; If slot not in use, continue 
Sg 0856 1062 388: PERL ORO : tise,“ cali back’ with oo 
ct «11 : ! e§ ; BRB BOs : Call back with failure 
$3 - BO ; ! i 408 MOVW Gut aC Lever CR IO) = ; Go back to previous Link index 
G2 2 BD 1067 owen GR i Af FOL then no.previous Link exists 
: ; ointer 
05 0331 1069 60S: RSB : Return to ca ler. terminate dialogue 
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ata base access action 1 mises Oh: 13:64 eres Macro Vv04-00 

SCAN SDI DATABASE -SEP-1984 02:18: NETACP.SRCIJNETCNFACT.MAR; 1 
-SBTTL NETSSCAN_SDI = SCAN SDI DATABASE 

NETSSCAN_SDI = Scan SDI database 


This co-routine is used to ‘ the database, and return to the caller 
(co-routine) for each entry in the database. These routines establish 
the order of the database entries, above that of the natural ordering of 
the collating field. 


Each eqtry in this database corresponds to a DWB in the global Linked 
list of DWBs. Each DWB represents a DLE session between a MOM process 
and a remote node. 


The search uses a dummy CNF which contains two pieces of information 
(as well as supply ing a valid CNF address): An identifier describing 
the current DWB being processed, and an identifier describing 

the previous DWB (so we can go ba 


The database is collated on a identifier in the DWB which is unique 
among all the DWBs in the system. 


ckwards). 


Inputs: 
R11 = Address of CNR 
R10 = Address of starting CNF (or 0 if to start at the beginning) 
Outputs: 


R10 = Address of CNF if dialogue aborted prematurely, else 0. 


The caller receives control on each database entry in List (via co-routine 


call). 
On input to co-routine: 


RO = True if entry was found. False if at end of List (R10 invalid) 
R10 = Address of tNF entry found 


On output from co-routine: 

RO = CNFS_ADVANCE Advance to next CNF, continue dialogue 
CNFS_TAKE_PREV Return previous CNF, abort dialogue 
CNFS_TAKE_CURR Return current CNF, abort dialgoue 
CNFS_QUIT Return no CNF (R10 = 0), abort dialogue 


see These routines must be abortable via a RET *** 
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NETSSCAN_SDI:: ; DLE scanner co-routine 

TSTL R10 ; Already point ing to a CNF ? 

BEQL 5$ ; If EQL no pein to common CNF 

CMPL  R11,R10 : At head of List ? 

BNEQ 10$ 3; If NEQ no, assume R10 is valid 
5$: MOVAB NETST_CNF $D1.R10 : Point to internal dummy CNF 

CLRW CNF $W_IDCR10) ; Initialize search context 

CLRW SOF EE DEMS TARTS ; Initialize previous entry context 
10$ MOVL #1.R ; Indicate success 
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O$: CLAL R10 
0$: R 
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10$: Mov.  (R5)_R5 
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ata base access 
AN SDI DATABASE - 
0$ JSB a(SP)+ ; 
SDISPATCH RO,<- 

<CNFS_ADVANCE 30$> - 
<CNFS_TAKE_PREV, 40$> - 
<CNF$_QUIT, 50$> - 
P <CNFS_TAKE_CURR, 60$> - 

BUG_ CHECK NETNOSTATE, FATAL 

30$: MOVW CNFSW_ID(R10) ,=- : 

CNFSC"LENGTH(R10) 

MOVL #1,R1 : 

BSBBs« GE f_DwB ; 

MOVL R1,CNFSC_LENGTH#2(R10) ; 

BRB 208 ; 

40$: MOVW CNFSC_LENGTH(R10) ,- : 

ue Su 1BCR10) 

BEQL 0$ : 

CLRL R1 $ 

BSBB GET_DwB 3 

MOVL R1,CNFSC_LENGTH#+2(R10) ; 

BRB 60$ : 


“” 
ow 
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; Local subroutine to locate a DWB in the 
; unique NETACP channel number. 


GET_DwB: 


PUSHR #*M<R2,R3,R4,R5> 
MOVL §NETSGL.DLE_UCBO,RO 
MOVAB UCB$O_BwB_CIST(RO),R2 
MOVL  R2,R5 


CMPL = RS, RO 
BEL 46=-_-« $0 
MPW © DWBSW_ID(RS),- 
NF $W~1D(R105 
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action 19 3Ee- 138% 0313 :6¢ Yee Macro V04-00 


NETACP.SRCJNETCNFACT.MAR; 1 
Call back our caller 
Advance to next CNF, continue dialogue 
Return previous CNF, abort dialogue 


CNF not found, abort dialogue 
Take current CNF, abort dialogue 


Save current position 


; Indicate that we want the ‘'next one" 
; Locate next DwWB 


Store address of DWB for action routines 


; Return to caller with status 
; Go back to previous Link index 


If EQL then no previous Link exists 
Indicate that we want ‘this one’ 

Locate next DWB 

Store address of DWB for action routines 
Abort dialogue, return with CNF 


: Nullify CNF pointer 
; Return to caller, terminate dialogue 


global DWB List given it's 


Save registers 
Get ND‘s UCBO 

Get address of listead 

Setup for loop 

Get next entry 

End of List? 

Branch if so 

Have we found the right spot? 


; If still LSS, keep scanning 
; Branch if same 


We have found the ‘next entry'’ in the collating sequence, 


BC —_ R1,, 508 : 
B 20$ : 


8 
B 
; if the current one went away. 
8 
B 


If caller wanted current, 
then too bad, else use next 


; We have found the ‘current entry’’ in the collating sequence. 


R1,20$ 3 
5 


534 ; 


(R 
CMPL R5.R 


If caller wanted next one, 
Skip to next one 
End of List? 


eed 


| 
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ee yewract = Configuration data base access action bmi dats 9 ET AX/VMS Macro v04-00 Page 46 
v04-000 NETSSCAN_SDI = SCAN SDI DATABASE -SEP=1984 02:18:01 NETACP.SRCINETCNFACT.MAR; 1 (11) 
he } 1185 BEQL 50$ ; If so, report error 
20 Yo . 11 § 20$ MOVL #1 -RO ; Success 
1 5 0D 6 11 MOVL R5,R1 ; Return DWB address in R1 
4 aS «BO 9 1188 MOVW  DWBSW_ID(RS),- : Stuff the collating value in 
12 AA C 1189 ENF SWI (R105 : the CNF 
ee 11 9 BRB 9s 
0 04 C 1191 50$ CLRL R ; Failure 
1 04 ¢ 1138 CLAL R1 ; Make sure DWB address is 0 
C A C4 1193 908: POPR #*M<R2,R3,R4,R5> ; Restore registers 
5 C6 1194 RSB 
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@ access action 16-SEP-1984 01:13: AX/VMS Macro V04-00 Page 27 
DATABASE aes Pi HER ENETACE. SREINEYCNFACT «MAR: 1 . (12) 
-SBTTL WNETSSCAN_ARI = SCAN ARI DATABASE 
NETSSCAN_ARI = Scan ARI (area) database 


This co-routine is used to scan the database, and return to the caller 
(co-routine) for each entry in the database. These routines establish 
the order of the database entries, above that of the natural ordering of 
the collating field. 


The search uses a dummy CNF which contains two pieces of information 
(as well as supplying a valid CNF address): A identifier describing 
the current area being processed, and an identifier describing 

the previous area (so we can go backwards). 
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Inputs: 


R11 = Address of CNR 
R10 = Address of starting CNF (or 0 if to start at the beginning) 


Outputs: 

R10 = Address of CNF if dialogue aborted prematurely, else 0. 
ve PR ples in receives control on each database entry in list (via co-routine 
ca 


On input to co-routine: 


RO = True if entry was found. False if at end of List (R10 invalid) 
R10 = Address of tNF entry found 


On output from co-routine: 


RO = CNFS_ADVANCE Advance to next CNF, continue dialogue 
CNFS_TAKE_PREV Return previous CNF, abort dialogue 
CNF$_TAKE_CURR Return current CNF, abort dialgoue 
CNFS$_QUIT Return no CNF (R10 = 0), abort dialogue 


see These routines must be abortable via a RET *** 
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; Area scanner co-routine 


NETSSCAN_ARI:: : 
SA oS TSTL R10 ; Already pointing to a CNF ? 
> y BEQL 5$ 3; If EQL no pein to common CNF 
5A 5B~COé*d CMPL R11,R10 : At head of List ? 
OD 12 BNEQ 10$ : If NEQ no, assume R10 is valid 
5A 00000000'EF 9E 5$ MOVAB NETST_CNF_ARI,R10 ; Point to internal dummy CNF 
12 AA B4 CLRW CNF $W_1D(R10) : Initialize search context 
24 AA B4 CLRW Sv £e LENSTACATG) ; Initialize previous entry context 
50 g1 b0 198: MOVL #1,R 3; Indicate success 
— 16 20S: SB a(Sp)+ : Call back our caller 


J 
SDISPATCH RO,<- 
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<CNFS_ADVANCE 30$> -; Advance to next CNF, continue dialogue 
<CNFS~TAKE_PREV, 40$> =; Return previous CNF, abort dialogue 
<CNFS_QUIT, 1 $4 -; CNF not found, abort dialogue 
<CNFS_TAKE_CURR, 60$> -: Take current CNF, abort dialogue 


—————_—-— 
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NETCNFACT = Configuration data base access action 16-SEP-19 1:1 AX/VM o Vv04-00 Page 
v04-000 NETSSCAR_ARI = SCAN ARI DATABASE g- yaa 83: 18: 84 YNeT ACP P.S SNETCNFACT. MAR; 1 . (3) 
E2 1253 > 
3 } ¢ BUG_ CHECK NETNOSTATE,FATAL 
12 AA BO Fe 1 § 30$: MOVW CNFS$W_ID(R10) ,- 3; Save current position 
¢4 AA FS 1 CNF NF SCULENGTH(R10) 10) 
AA 6 45. 3 35$: INCW CN nO RD as ; Advance to next area number 
12 AA 5 FA 1 MOVZWL Sia 9 ID(R10) ,R ; Get area number 
50 0 90090 ‘ff p FE 1260 MOVL T$GC_PTR_VC tee : Get RCB address 
088 8 | 405 1261 CMPB RB RCBSB HOMEAREA(RO) : Our own area? 
pi 13 040A 1 6¢ BEQL , § : If so, return it 
008c CO 8 BI 40C 126 CMPW 3 RCBSB_MAX_AREA(RO) ; Within range? 
OD 1A ti} 1264 BGTRU § 3; If not, terminate search 
20 Ad b 413 1265 TSTL peest_ PTR_AOA(RO) ; Are we a level 2 router? 
OF 1 218 1 96 BEQL 3 3; If not, skip the for lowing 
20 8048 8 418 126 TSTW gecesi. PTR_AOA(RO)CR8] ; Is area reachable? 
09 = 1 Bele 1268 BEQL 5$ : If not, then skip to next one 
BD 17 041 1 +4 BRB 10$ 3; Else, return it 
50 04 Be 1270 38$: CLRL RO ; No more adjacencies 
Bc it Be ¢ : 4 BRB 20$ 3 Call back with failure 
24 AA BO 0424 1 58 40$: MOVW CNFSC_LENGTH(R10) ,- ; Go back to previous entry 
12 AA 0407 1274 CNFSW~ID(R10) 
02 12 0429 1275 BNEQ 60$ ; If EQL then no previous entry exists 
SA 04 0428 1 es 50$: CLRL R10 ; Nullify CNF pointer 
05 0420 1277 60$: RSB ; Return to caller, terminate dialogue 


| 
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TCNFACT = Configuration data base access action 16-SEP-1984 01:13: AX/VMS Macro V04-00 Page 29 
yo4+000 NETSSPCSCAN, XXX = SPECIAL DATABASE SCAN mits 1 83:13:89 ENETACE. SREINETCNFACT MAR: 1 . (13) 
: : } 79 x -SBTTL NETSSPCSCAN_XXX = SPECIAL DATABASE SCAN ROUTINES 
? ; ! ? 3 NETSSPCSCAN_XXX = Special database scan routines 
re : : $ ; These routines are called to scan a CNF entry if the search operator is EQL. 
42E 1285 ; Inputs: 
tse 1S88 : 
42E— 1 : R11 = Address of CNR 
42—E 1288 ; R10 = Address of CNF 
42E 1289 ; R9 = Field ID of search field. 
r : ! 39 5 R7,R8 = Descriptor of search key value 
42E 1 35 3; Outputs 
42E 12935 ; 
42E 1294 ; RO = Always clea 
42E 1295 ; Bit 0: Set” if success, else clear. 
? ; : 38 5 Bit 1: Set if key is recognized, else clear. 
042E 1298 ;- 
042E 1299 
O42E 1 89 NETSSPCSCAN_CRI: : Circuit CNF real SCAN routine 
042E 1301 NETSSPCSCAN_PLI: 3; Line CNF real SCAN routine 
Q42E 1 8 NETSSPCSCAN_LNI: 3 Local node CNF real SCAN routine 
042E 1303 NETSSPCSCAN_OBI: ; Object CNF scanner SCAN routine 
042E 1304 NETSSPCSCAN_EFI:: ; Event filter CNF SCAN routine 
042E 1305 NETSSPCSCAN_ESI: : Event sink CNF SCAN routine 
042E 1306 NETSSPCSCAN_SPI:: ; Server process CNF SCAN routine 
042E 1307 NETSSPCSCAN_LLI:: : 
042E 1308 NETSSPCSCAN_AJI:: 3 Ad agente CNF SCAN routine 
Q042E 1309 NETSSPCSCAN_SDI:: 2 Dp CAN routine 
042E 1310 NETSSPCSCAN-ARI:: ; AREA Adjacency CNF SCAN routine 
50 D4 042E tf cirC RO ; Always return false 
05 0430 1312 RS 


haf acen Link CNF SCAN routine 


K 9 
ti 16-SEP-1984 01:13: AX/VMS Macro V04-00 Page x, 
vOus000 e*SPECTAL SCAN OF NDI D 1986 63:18:01 


= i 
NETSSPCRCAN NDT SPE AL SCAN OF NDI DA 5-=SEP- NETACP.SRCINETCNFACT.MAR; 1 (14 | 
ri } ! 1% ~SBTTL NETSSPCSCAN_NDI = SPECIAL SCAN OF NDI DATABASE 
3 
r } ! 18 3; NETSSPCSCAN_NDI = Special scan of NDI database 
: he NDI database and return to the caller 
" i i 8 : ins sadrese ai uke tale this poutine con only be called if the operation 
431 1320 ; is an EQL or FNDPOS operation. This routine will return any NDI except 
: } : 1 3; for the MARKER NDI. 
r ! ! § ; Inputs: 
: = NR 
t i i 3 3 R10 = Baarees of peartten CNF (or 0 if to start at the beginning) 
0431 1 . 3 R9 = Field ID of search field. 
Oe ; } 8 3 R7,R8 = Descriptor of search key or value 
4 0 : Outputs: 
ee 1 #41 : R10 = Address of CNF if success, else 0. 
0431 1 § : RO = Bit 0: Set if success, else clear. 
0431 1334 ; Bit 1: Set if key is recognized, else clear. 
a 1 
0431 1337 ° 
NETSSPCSCAN_NDI:: 3; Find NDI block 
0198 8F 4 0031 Hi . ve aaa ; oe it pe 
02020040 8F 2 D1 037 ! t coer R9 ,@NFBSC_NDI_COL : precshing by collating value? 
02010012 8F 55 bi bedp i “8 CHPL R9, #NFBSC_NDI_ADD Searching by node address? 
02010010 8F 39 ot accs : rb ieee R9,#NFBSC_NDI_TAD ; Searching by transformed node address? 
02020043 8F 5 D1 o432 1 23 CMPL = R9,#NFBSC_NDI_NNA : Searching by node name? 
0098 "i ve i #8 Bea 108 ' | A: with no match 
Reet i 31 ; Name value, search the NAME tree for match 
4 ae 3 se 38 108: BBM WE TSF IND _MARE ; georee the name tree 
bee 56 : Collate value, search the COLLATE tree for match 
4 +a 3 ee ! 38 208: bsBu WE TSF IND_NOI : feorck the collate tree 
OceA i a : Transformed node address 
tee i 86 : If the node address equals the executors node address 
46A 1364 3 then change it to zero; 
46A 1 9 3 Swap the bytes of the node address field 
46A 1 . 
: : ; Get the RCB address 
- a at ad Ef Bf " ; i : nie fowl RB RCBBU ADDR CAO) : Is Ho's, a, eaocysere address? 
35 be re i % aNaL RB : Else, zero the node address 


| 
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NETCNFACT - Configuration data base access action 16-SEP-1984 01:13: AX/VMS Macro v04-00 Page 31 
v04-000 NETSSPCSCAN.ND1 = SPECIAL SCAN OF NDI DA g7 ben 1382 93:13:84 ENETACP. SREINETCNFACT MAR: 1 ° (14) 
479 137 
of } if 3 Node address 
38 Dd 0479 1374 50S: PUSHL = RB ; Save node address 
; 4 0478 1375 CLRL -(SP) 3; Make some room on the stack 
0¢ AE 47D 1 6 MOVB R8B,2(SP) ; Store low pyte 
50 F8 BF 481 137 ASHL #-6.R8,RO : Swap down high byte 
01 AE 9 90 0486 1 A. MOVE RQ. { (SP) : Store high byte 
5 2 9A O48A 137 MOVZBL #3,R7 : Set strane Length 
58 E g 48D 1380 MOVL SP,R8 ; Point R8 to string 
FB6D" 4 ° 1381 BSBW NETSFIND_NDI ; Search the collate tree 
5E 4 C 493 1 § ADDL #4,SP 3; Cleanup stack 
4 BED $38 1 POPL 3; Restore node address 
51 E 499 1384 BLBS RO,80$ ; Br if success 
09 €0 O049C 1385 BBS #NETSV_INTRNL - : If internal, then not interested 
52 00000000' EF teat : NETSGL-FLAGS, 100$ : in "phantom'’ NDIs 
5A d 4A4 1388 TSTL R10 3; Was starting CNF zero? 
05 1 Ree 1389 BEQL 60$ ; Br if yes, oes 
5B SA D1 04A8 1390 CMPL R10,R11 ; Else, is starting CNF the CNR? 
49 12 OQ4AB 1391 BNEQ 100$ ; Br if not, return error 
54 OO0000000°EF DO Q4AD 1 3 60$: MOVL NETSGL_PTR_VCB,R4 ; Get the RCB address 
OA EF 0484 139 EXTZV #TR4$V~ADDR_AREA,- ; Get the area address 
53 58 0 0486 1394 #TR4$S_ ADDR AREA,R8B,R3 ; 
008B C4 5 91 0489 1395 CMPB R3 RCBSB_HOMEAREA(R4) 3; Is this our area? 2 
36 «612 «(048 1396 BNEQ 100$ : Br if not, return failure 
OE AS «658 ~=6B1 SC04C0 = 139 CMPW R8 ,RCBSW_ADDR(R4) :; Is this for the local node? 
30 13 04C4 1398 BEQL 106$ : Br if yes, return error 
00 EF 04C6 1399 EXTZV #TR4$V_ADDR_DEST,- ; Get the node address 
53 58 OA 04C8 1400 #TR4$S_ADDR-DEST.R8,R3 
€? 13 04CB 1401 BEQL 190s ; Br if zero, return error 
SA AG 653)=«B1 COOKED 1408 CMPW =-R3,RCBSW_MAX_ADDR(R4) : Is it still in the area? 
23 1A 04D1 140 BGTRU 100$ : Br if not, return error 
1C B44 8 403 1404 TSTW @RCBSL_PTR_OA(R4)CR3] ; Is the node reachable? 
: a 4D7 1405 BEQL 100$ ; Br if not, return error 
5A 00000000'EF DO 0409 1406 MOVL NETSGL_DUM_NDI,R10 ; Else, use the dummy NDI 
12 AA 58 BO 04E0 1407 MOV) RB, CNFSW_1B(R10) : Stuff the node address 
24 AA 58 BO 04E4 1408 MOVW R8,NDI_ADD(R10) ; .ehere also 
50 01 9A OQ4E8 1409 MOVZBL #1,R0 3; Return success 
09 11 4EB 1410 BRB 00$ 3; Exit 
06 E1 Q4ED 1411 80$: BBC #NDI_V_MARKER,- : Never return the marker CNF 
04 0B AA Q4er 1418 CNFSB_FLG(R105 ,100$ ; 
50 D4 O4F2 1415 90S: CLRL RO : Indicate failure 
SA rt Rare 1414 CLRL R10 ; Return error 
50 02 8 78 1415 100$:  BISB #2,R0 : Return indicator that key accepted 
0198 8F a Ref 1218 110$: POPR #*M<R3,R4,R7,RB> ; Restore registers 
5 O4FD 141 RSB ; Return to caller 
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e access action 16-SEP-1984 01:13: AX/VMS Macro Vv04-00 Pa 3 
0 PROCESSING eet ioet yy 84:13:84 ENETACP. SREINETCNFACT MAR: 1 ™ 8) 
-SBTTL NETSPRE_QIO_xxx = PRE-Q10 PROCESSING 


NETSPRE_QIO_xxx = Perform pre-Q10 database processing 


; This routine is called just after validating the NFB for a database 


function to do any special pre-processing before the request is attempted. 


; Inputs: 
R11 = Address of CNR 
NETS$GQ_SRCH_KEY = Descriptor of search key value 
NETSGL_SRCH_ID = Field ID of search field. 


; Outputs: 


NETSGQ_SRCH_KEY = New search key value (if reformatted) 


MEW SO ODNAU EWN 9 OO NAME WN O OD NAUS WN" OOONOULSWNO)0O xD 
2220 


NETSPRE_QIO_NDI:: 
cmec 


10S: MOVL «NE TSGQ_SRCH_KEY+4,R1 


NETSPRE~ 
NETSPRE~ 


" {96 SRCH_ 1D ANF ORC 101 TAS ; Searching by node address? 
e 


BEQL : so, transform key 
CMPL N TSGL_SRCH_ID,#NFBSC_NDI_ADD 3 Seeren tan by node address? 
BNEQ 90$ :; If not, skip i 


; Get the node address 
BEQL 3 » skip i 
EXTZV #TR4$V_ADDR_AREA,- ; Get the area number 


#TR4$S_ADDR—AREA.R1 RO 
90$ 


MOVL  NETSGL_PTR VB RE 
INSV RCB$B_ROMEAREA(R2) ,- 
#TR4SV_ADDR_AREA, - 
#TR4$S~ADDR-AREA,R1 
BSBW  SUPPRESS_AREA 


3; Check it if non-zero 

; Get RCB address 

; If area = 0, then use our area 

; (accept 0 as synonym for our area) 


; Suppress area, if necessary, to be 
3 consistent with the TAD whic: is also 
3 suppressed (so that it will match) 


MOVL R1,NET$SGQ_SRCH_KEY+4 Set new search key 


UNI 
0B! 
EFI 
ESI:: 
LLI:: 
SPI:: 
AJI 
SOI 
ARI 


C  _ S*#SS$_NORMAL RO : Indicate success 


<Zz 


uration data 


f 
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0 
0 
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0 
0 
0 
0 
0 
0 
0 
Q 
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rah dh db dh dh dh dh db hb bh dh eb ab ih dh bh hb hb hh hh bh ah bh hb dh dh dh hs ee od 
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N 9 
UrxX = PRESSHOW PROCESSING” 'S-$EP=198¢ 02:18:61 ENETACE.SREINEYENFACT.MAR:1 “8° cféy 


1? 7 : «SBTTL NETSSHOW_xxx = PRE-SHOW PROCESSING 
14 3 ; NETSSHOW_xxx = Show Q10 pre-processing 

147 : This routine, is called for each CNF which is about to be returned 
1of 3; to a ‘'show'’ Q10. 

ore ; Inputs 

1476 : R11 = Address of CNR 

\of 3 R10 = Address of CNF 

1475 : Outputs: 

1381 : RO = Status code 

14 § : The CNF may be updated. 

1485 ° 

14 : NETSSHOW_LNI:: 

1487 NETSSHOW_NDI:: 

1488 NETSSHOW-OBI:: 

1489 NETSSHOW-EF I: : 

1490 NETSSHOW"ESI:: 

1491 NETSSHOW-LLI:: 

1498 NETSSHOW-SPI:: 

1493 NETSSHOW-AJI 

1494 NETSSHOW_SDI:: 

1495 NETSSHOW-ARI:: 

1496 MOVL S*#SS$_NORMAL ,RO 3 Indicate success 
1497 RSB 
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TCNFACT = Configuration data base access action 16-SEP-1984 01:13: AX/VMS Macro V04-00 Page 34 
aXKK = -SEP- :18: ° . 3 
Wiuc000 NETSDEFRULT APPLY DEFAULT VALUES § SEP 138 83 a 4 NETACP.SRCJNETCNFACT.MAR; 1 . it) 
2 } -SBTTL NETSDEFAULT_xxx = APPLY DEFAULT VALUES 
2 ! ; NETSDEFAULT_xxx = Apply default values to selected CNF parameters. 
48 1 ; This routine is called by CNFSINSERT just prior to validating a CNF 
48 1504; ry which is to be inserted into the database. Its purpose is to 
2 : 5 ; supply default values to selected parameters. 
8 : pointer 
4 1 Q INPUTS R11 CNR i 
2? ! ; R10 CNF pointer 
548 1 i 3; OUTPUTS: R11 CNR pointer 
548 1511; R10 CNF pointer 
3 ! \§ 3 RO SS$_NORMAL == this routine always succeeds. 
2 1314 3 ALL other registers contain garbage. 
54 1318 NETSDEFAULT_LNI:: 
54 13] SGETFLD Lni,L ety : Get executor type 
OF 50 €8 0555 1518 BLES  RO,NETSAPPLY_DFLT : If specified, then continue 
00000000" EF if 338 1319 JSB NETSGET_END ; Get endnode info 
0650 € SSE 1520 BLBC RO,NETSAPPLY_DFLT : failure, then use default 
58 05 B° 561 1521 MOVL #AOJ$C_PTY_PA4N,RB ; Use endnode as default 
FA99" 564 15 ¢ BSBW = CNF SPUT_FIELD ; Store it in the CNF 
567 1523 NETSDEFAULT_OBI:: 
567 1524 NETSDEFAULT_EFI:: 
0567 1525 NETSDEFAULT-ESI:: 
567 15 § NETSDEFAULT_LLI:: 
567 1 NETSDEFAULT_SPI:: 
567 1 3 NETSDEFAULT_AJI:: 
567 1529 NETSDEFAULT_SDI:: 
567 I O NETSDEFAULT_ARI:: 
567 1531 NETSAPPLY_DFLT:: 3 Apply default CNF parameter values 
56 Poooteras 4 544 13 4 MOVZBL CNRS$B_TYPE(R11),RO ; Get database i.d 
5 1534 
57 13 5 NETSTABLE_DFLT:: ; Apply defaults given table address 
57 1 § ; R6 = default table address 
59 = 86 00 573 1 10S: MOVL (R6)+,R9 ; Get parameter i.d., advance R6 
oF } 278 1 8 BEQL 50$ : Done L 
FA85° 578 1 BSBW CNFSGET_ FIELD ; See if field is already setup 
58 D ee 1540 MOVL (R6)+,R8 3; Get parameter value, advance R6 
F2 7E 1541 BLBS RO,10 ; If LBS the no need for default 
FA7C' 581 1 4g BSBW = CNF SPUT_F ELD : Store it in the CNF 
3 584 154 BRB 10$ 3 sprere errors 
50 0° 0 5 3 1368 50$ MOVL S“#SS$_NORMAL ,RO ; Always successful 
5 1545 RSB ; Done 


MOVL NETSAC_CNF_DFLTCROJ,R6 : Get parameter id.value table 
| 
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Cc 1 
data base access otlee 
= APPLY DEFAULT VALUES T 


-SBTTL WNETSDEFAULT_NDI = APPLY DEFAULT VALUES TO NDI CNF 


Apply default values to NDI CNF parameters - 
also set the LOOP bit in the FLG byte if needed. 


This routine is called by CNFSINSERT just prior to validating a CNF 
is to be inserted into the database. Its purpose is to 
defauit values to selected parameters. 
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ae 
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NETSDEFAULT_NDI 


Bete Ge Ge Oe Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge 


TSDEFAULT NDI: 
$B 


i 
F 
; 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


DOWD \ }& ©0000 000000000000 009 0000 00 00 00 Co CD CD CB CD OD ODD 


NENOVTOMOOOPFy SP SP PPYrrrrrrrrrrrrrr cc 


PUPUPUPVLUPVSUSUSVSUSUSUSVSISISTS ISVS 


SSN SNA AA AAA A AAAI see OO 


AIF WN O CONAN E WP OWOONOAOUE UP" O0O0ON FD 


Mor eeen Tbe 02:18:07 ENETACE. SRCINEY GNF ACTLMAR: 1 


CNR pointer 
CNF pointer 


CNR pointer 
CNF pointer 
SS$_NORMAL == this routine always succeeds. 


ALL other registers contain garbage. 


NETSAPPLY_DFLT ; Apply defaults 


Get the node address 

Br if none, will fail later 
Is node address zero? 

Br if no, not a loop node 

Get the optional circuit name 


Bete Se Ge Ge Se Gee 


Br if none, not a loop node 
LOOP ,- Mark this as a ‘‘LOOP’’ node 
“FCG(R16) 
S“#SS$_NORMAL ,RO 3 pe successful 
; Done 


Se _ —y 
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TCNFACT - Configuration data base access action 16-SEP-1984 01:13: AX/VMS Macro V04-00 Pa 
Whuc000 NETSINSERT_LNI - PRE-INSERTION PROCESSIN gre 1882 84313389 ENETACP. SREINETCNFACT MAR: 1 ” iB) v0 
: } : -SBTTL NETSINSERT_LNI = PRE-INSERTION PROCESSING | 
8 ; NETSINSERT_LNI = Insert an LNI entry into database 
588 1 : This routine is called to validate the CNF entry before inserting 
38 i ? ; it into the database. 
38 5 : Inputs: 
38 1 $ ; R11 = Address of CNR 
: : : 3 R10 = Address of CNF 
36 : 33 : Outputs: 
28 : 5 : RO = Status code. If error, entry is not inserted. 
588 1594 * 
5B8 1595 NETSINSERT_LNI:: 
588 1 36 SGETFLD Lni,l,add : Get the node address 
a 8 ot3 44 pbs RO, 38 :; If LBC then report bad node address 
55 34 0 5¢B 1599 5$ Vv R8,RS : Has the address been set yet? 
QOD 1 SCE 1600 BEQL 10$ : If not set, skip address checks 
54 aa” os DO 0500 1601 MOVL NETSGL_PTR_VCB,R4 ; Get RCB address 
OE AG Bi 05D 160¢ CMPW sa RB RCBSW_ABDR(R4) ; Is the address being changed? 
8 12 0508 160 BNEQ 20$ : If so, perform address checks 
01 31 208 Jone 198: BRw 140$ ; Skip all address checks 
434 1998 ; ; If we are running in a cluster, ensure that the address specified 
5EO 160 3 in the SYSGEN parameter SCSSYSTEMID matches the DECnet node 
5EO 1608 ; address with the area number. If SCSSYSTEMID contains no area, and 
360 190) 3 the node address is in area 1, don't compare area... 
00000000 ' GF 05 5E0 1611 TSTL  G*CLUSGL_CLUB : Are we in a cluster? 
7 2E8 1916 BEQL 50$ 3; If EQL, no, skip the test 
51 5 DO OS5E8 161 MOVL R5,R1 ; Make copy of address for CMPW 
OA EF OSEB 1614 EXTZV #TR4SV_ADDR_AREA,- ; Get the area number of SCSSYSTEMID 
50 00000000'GF 06 SED 1615 #TR4$S_ADDR-AREA, G*SCS$GB_SYSTEMID,RO 
F 12 QSF4 1918 BNEQ 30$ ; If NEQ, compare full address 
A EF 2F6 161 EXTZV #TR4&$V_ADDR_AREA,- ; Get the area number of node address 
50 55 0 SF 1618 #TR4$S_ADDR_AREA,R5S RO 
D1 OSFB 161 CMPL RO,#1 ; Is it area 1? 
OE 12 606 1 Y BNEQ 40$ 3; If NEQ, no: areas do not match. 
63 19 § : Just compare the node address portions. 
00 EF 06 1624 EXTZV #TR4$V_ADDR_DEST,- ; Get the node within area 
51 55 OA ? 1 5 #TR4$S_ADDR_DEST,R5,R1 
1 : : Note: R1 contains node address, or node with area if area = 1 
00000000'GF 51 1 6 16 § 30$: tmPw R1,G*SCS$GB_SYSTEMID ; Does the node address match? 
3 13 060¢ 1 6 BEQL 208 : If EQL, yes 
0106 «31 $ ' $ $: BRe 1908 3; No, report error 
611 16 § : : If we are acting as a Phase IV router, then if no area number | 
611 16354 : has been specified as the executor address, then default it to 


| 


80S: 
: f we are dealing with an area router, or a router which 
3 s using explicit area specifications, then provide the 
; additional LNI defaults for area routers. 
$GETFLD Lni,v,sup ; Is the area suppression flag set? 
BLBS 3; If so, then skip area defaults 


56 90$: MOVAB NET$G LNI_AREA,R6 Set address of area defaults 
1008 BSBW NETSTABLE_DFLT ; Apply the default values 
; : Breakup the new executor address into area and node number 
EXTZV #TR4SV_ADDR_AREA,- : Get the area number 


#TR4$S_ADDR_AREA,R5S,R2 
EXTZV #TR4$V_ADDR_DEST,- 
#TR4$S_ADDR_DEST,R5S,R3 
; Make sure that the area number specified is within MAX AREAS 
$GETFLD Lni,v,su 
BL RB,1308 
SGETFLD Lini,l,mar 
Bic sa 116 
CMPB R2,R8 
BLEQU§ 120% 
1108: MOVZW~L $02 58_BADPARAN.RO 
BRB 70$ 


; Get the node within area 


E 19 
- Configuration data base access action 16-SEP-1984 01:13: AX/VMS Macro V04-00 Page 37 
NETSINGERT ENT = PRE-GNSERTION PROCESSIN SeSEP-19RG O2:1B07 ENETNCELSREINEY ENF ACT MARs1 2% (75) 
11 5 ; #64", and set a flag indicating that we should operons the area 
el} § ; number on all node addresses returned to higher layers (NML/EVL). 
11 $GETFLD Lni,l,et : Get executor type 
34 0 £9 6i§ BLBC OR 46g . e Tt not set, then error 
03 } 6 4 CMPB RB, #ADJSC_PTY_AREA ; Are we an area router? 
4 13 0626 164 BEQL 70$ : If so, bypass checks 
A €D Q6 g tg CMPZV) «= #TR4SV_ADDR_AREA,- ; Is the area number 0? 
00 55 06 4 #TR4$S_ADDR_AREA,R5S, #0 
D if 628 44 BNEQ 80$ ; If not, then it's ok 
A 1 F 6 45 INSV #1, #TR4$V_ADDR_AREA,= ; Default it to ‘1"' 
3 § 6 46 #TRGSS_ADDR_AREA,RS 
DO 06 4 MOVL R5,R ; Set new address 
6 48 SPUTFLD Lni,l,add : Store i 
2550 €9 064 4 BLBC — «RO, BOS : If error trying to store, skip it 
58 01 DO 064 50 MOVL #1,R8 ; Remember to suppress area from now on 
64 51 SPUTFLD Lni,v sup ; Store the area suppression flag 
58 50 €9 065 3g 60$:  BLBC  RO,116$ : Exit if error trying to store 
10 11 638 33 BRB 80$ 
65A 55 : For area routers, all we need is to make sure the area 
65A 2$ : number is never 6, since it would wreak havoc on the routing 
een 2 ; algorithms. 
65A 38 70$: SCNFFLD Lni,l,add,R9 ; Assume problem with address 
661 1660 EXTZV #TR&$V_ADOR_AREA,- : Get the area number 
61 #TR4$S_ADDR_AREA,R5,R2 
¢ BEQL 110$ : If 0 at this point, then error 
6 ; (area number can NEVER be zero) 
rt: BRB 90$ ; Apply area routing defaults 
6 
¢9 
i 
: 
g 
0 
4 


Is the area suppression flag set? 
If so a chec 

Get MAX AREAS 

Branch if not set 

Within MAX AREAS? 

Branch if ok 

Indicate error 

Report the error 
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$ Make sure that the node number specified is within MAX ADDRESS 

$GETFLD Lni,l,mad ; Get MAX ADDRESS 

BLBC Ro. {108 : Branch if not set 

CMPW R3,R8 : Within MAX ADDRESS? 

BGTRU 116$ : Branch if out of range 

: Make sure that there are no NDI entries with the new LNI node 


; address. Refer to NETSINSERT_NDI for more information. 
mova =s_ R10, = (SP) 


BSBW NETSNDI_BY_ADD 
CMPL R1Q,NETSGL_LOCALNDI 


Save registers 

New executor address 

Lookup NDI for this address 
Did we find the local NDI? 


BNEQ If so, branch 

CLRL RO Else, indicate address already in use 
MOvVa (SP)+,R10 Restore LNI pointers 

BLBS RO, 180$ Error if already in use 


Update the ACP control layer 
Inputs: ai) LNI CNR permaee 


10 New LNI CNF pointer 
Outputs: RI 1.D. of faulty parameter if LBC in RO 
RO Status 


ALL other regs may be clobbered. 


Pete Ge Ge Ge Ge Ge Ge Ge Ge 


BSBW  NETSUPD_LOCAL ; Make ACP transistion 
BLBC ; If error detected, then exit 
4 ini,v sup ; If areas were suppressed, 


MOVL NETS$GL_PTR_VCB,R4 Get RCB address 
MOVE #1,RCBSB_MAX_AREA(R4) 


Now that there is no more pave lott ity for error, we must 
reposition the fake ‘‘area.0"' NDI CNF which marks the position 
in the NDI Linked List of the pogtaning of the current area, 
(This marker is needed to determine when a scan needs to skft 
to using the OA vector or not). If no marker syrrentty 
exists, then one is created assuming that this is the first 

: LUNI insertion. 


6S8B NDI_MARKER ; Insert the marker in the right place 
move $*#SS$_NORMAL ,RO ; CNF, where it might by seen by user 
novell. #SS$_DEVACTIVE,RO ; Executor address is used elsewhere 
MOVL #SS$_WRONGNAME ,RO ; Executor address does not match 

RSB ;  VAXcluster system ID. 


_ ND 


; Stuff Max Area to 1, but not in the 
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-SBTTL NDI_MARKER = Insert executor NDI marker 
NDI_MARKER = Insert marker into NDI Linked List for executor node 
This hy 6) ie inserts a dummy CNF block into the NDI Linked List at 
the position where the executor address would normally go. This marker 
is needed when scanning the database in order to know when to begin 
using the = vector, rather than the linked List, and where to 
return again after finishing with the vector. See SCAN_NDI for more 
details. 
Inputs: 

RCBSW_ADDR = New executor address 


Outputs: 


we cenact = Co 
v04-000 NDI 


Se 
——. 
mec 
27> 


SSN NNN NNN NSN eo 


None 
ALL registers are preserved. 


ze. Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge 
+ 


DI_MARKER: 
OFFF 8F BB = PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,RI,RIO,RII> ; Save registers 
58 00000000" EF DO MOVL NETSGL.CNR_NDI,R11 : Point to NDI root 
5A B 00 MOVL R11,R10 ; Start at beginning of tree 


; The executor node address is always stored as 0, in the 

; collating tree. Therefore we will insert a marker in the 
; collating tree as n.0 where n it the current area field 

; of the executor node address. To make finding this NDI as 


BWOIWo—-vcVTVTVTVTVTVVTVTVTVVVVCVCVCC"CT"0"0C000 


PIE IP II at at at at at nt tk kt a a 8 


easy as possible, it will be searched in the name tree as 
"“seee'! {s 
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8 
4 
B - Since this is an invalid node name string, it will 
; be a unique entry in the name tree. 
7E ees 5 ae 8F D0 MOVL #*A' +444" = (SP) 3; Store 4 gs on the stack 
7 ge GA MOVZBL #4,R7 3; Set string length 
58 4 8 78 MOVL P,R8 ; Point R8 to string 
FaCc5' 8 17 BSBW NET SF IND_NAME : Search the name tree for NDI 
5E 98 co 7 ADDL ° 3; Cleanup stack 
05 50 8 —E 17 BLBC RO 3 ; Br if not found 
F8BC' 30 0741 17 BSBW Net DELETE_BTE : Else, delete the old BTEs 
21. 11 te f BRB 40$ 3; And continue 
ve M : If the old NDI cannot be found, then we will create one. 
51 OC 3C 40746 1793 208: MOVZWL CNRSW_SIZ_CNF(R11),R1  ; Set size of CNF block 
51 CO QO74A 179 ADDL #8,R ; Add in enough room for name 
0000000 ‘fF 16 4 79 JSB NE TSALLOCATE : Allocate block from ACP pool 
5 E 3 79 BLBC RO,90$ ; Br if error, skip it 
SA 7 3 79 MOVL R2,R10 ; Save address of marker CNF 
FRAG" es 79 BSBW = CNF SINIT : Initialize CNF block 
40 8F 75C =«(179 BISB #1QNDI_V_MARKER,- : Initialize flags 
AA 75F CNF$B_FLG(R10) 
18 AA 7C 6) CLRQ CNFSL_MASK(R10) : Initialize 12 byte bitmask 
20 AA 04 764 CLRL CNFSL_MASK+8(R10) 
767 40$: 3 
767 ; Common processing 
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NETSGL_PTR_VCB,R5S 


MOVL 
MOVZWL cost AD ADDRTR RB 
MO 


(R16) 


VW 
INSV = #0 CME ee OOER DEST,- 
#TR4$S_ADBR_DEST,R8 


S$PUTFLD ndi,l,ad 

M0 aanesee' = (SP) 
MO P’RB 

SPUTFLD ndi $,nna 
ADDL 


#4,§P 
BSBW ce ites ie 


=z 

oO 
<<< 
~~ 

wo 

Cm 
YRarve 

= »a- 


POPR #*M<RO, Ri Re, R3,R4,R5,R6, 
RSB 


So3EP=1986 02: 


ays RB. R9,R1 


3:6 ENETACP. see 


Get RCB address 


Get executor node address 
Copy/reset new executor address 
Zero the address within the area 


Store it in CNF 


Store 3 iy HL = she stack 
en 


zef f steine 
oint R8 to ine 


Set the ihe field 


04 
CIN NETCNFACT.MAR; 1 


o trees 
Ruts ; Restore registers 


control strings 
Get the node name descriptor 
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v04-000 NETSINSERT_NDI = PRE=INSERTION PROCESSIN 5=SEP=1984 02:18: NETACP.SRCIJNETCNFACT.MAR; 1 
~~ ! 1 : -SBTTL NETSINSERT_NDI = PRE-INSERTION PROCESSING 
in 4 } : NETSINSERT_NDI = Insert an "91 entry into database 
7AD 1825 : This routine is called to validate the CNF entry before inserting 
tA ! § 3; it into the database. 
4 ! 8 : Inputs: 
7AD 1830 : R11 = Address of CNR 
in } os R10 = Address of CNF 
He ! : Outputs: 
BoAe : 5 : RO = Status code. If error, entry is not inserted. 
AD 4 .ENABL LSB 
Brae : i} NETSINSERT_NDI:: 
07AD 13¢) : Use this Spoor tunte to keep the NDI and LNI databases consistent 
Q7AD 1 4g 3 by using the following rules. These rules are needed because the 
7AD 184 ; the local node address exists in both data bases. 4! forcing the 
7AD 1844 ; address of the local node NDI and all 5 nodes to be zero and by 
O7AD 1845 ; using a zero NDI node address to implicitly refer to the RCBS$W_ADDR 
O7AD 1846 : value, changing the local node address in the LNI data base will 
O7AD 1847 : automatically update the addresses of the peritinent NDI entries. 
O7AD 1848 3; The fact that the local node's address is stored as zero throughout 
07AD 136) ; the NDI data base is used throughout the ACP -- it will be very 
Boae 1320 : difficult to modify the design. 
Brae 1836 : Upon new NDI insertion: 
07AD 1834 : 1. if new NDI node address = RCBSW_ADDR 
Brae 133? : then zero the NDI node address 
4 ! 2 : # i old NDI node address = 0 
3 en 
O7AD 1859 5 if new NDI node address NEQ 0 
grab : rs : then error 
Boab 188¢ : Upon new LNI insertion: (see UPD_LOCAL above) 
OAD 1864 : 1. if mew LNI node address exists anywhere in the 
7AD 1865 3 NDI data base 
~~ ! ? 3 then error 
55 5A 00 O7AD 1 68 MOVL R10,R5 : Save the new NDI 
8A 0780 1 BICB #<1NDI_V_LOCAL>!- : Init special flags 
781 1870 <1aNndI Vv LO0P>.= 3 
0B AS 30 781 1871 CNF$B_FCGTRS) 3 
0264 30 0784 187 BSBW CHK_LOGIN_NDI ; Check default login strings for 
787 187 3: combined length 
7A 20 E9 0787 1874 BLBC RO,5$ :; If LBC then too long 
00000000 'EF 4 00 OQ7BA ! 75 MOVL R4,NDI_L_NACS : Remember number of non-null access 
1 : 


7 SGETFLD ndi,s.nna 


a? there's a loopback Line associated with the new NDI 
en 


if the old NDI is a “‘loop’’ node 
then 


if mew NDI node address = 0 
then okay 
t else node address is invalid 
else 
Loopback Line is an invalid parameter 


else 
if the old NDI was a “‘loop’’ node 
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v04-000 NETSINSERT_ NDI - PRE-INSERTION PROCESSIN g- eats ri 83:18:84 ENETACE. SREINETCNFACT MARS 1 ” (3%) 
QOO000018"EF 57 7D O7CE 1 8 mMOVva R7,NDI_Q_NAME : Save it 
705 187 SGETFLD ndi,l,add : Get new node address 
Pt tee de gH | ces east be tf lon nesea 
3 so en br (for loop nodes 
$2 00000000°EF D0 O7ES 188g ROVL | NETSGL PIR VCB_R2 : Get the RCB pointer 
O EF Q7ED 1 EXTZV = #TRG VIADDR_DEST,- ; Get the node # within area 
50 558 A 7EF 1884 #TR4$S_ADDR_DEST,R8,RO 
OA EF ire 1885 EXTZV #TR4$V_ADDR_AREA,- ; Get the area number 
a" 3 8 7F4 4 § #TR4$S_ADDR_AREA,R8,R1 
14 i 7F7 «(4 : BNEQ 4$ 3; Check it if non-zero 
0088 C2. «SOF 7F9 «1 8 INSV RCB$B_HOMEAREA(R2) ,- 3; If area = 0, then use our area 
BA 7FD 4 8 #TR4$0_ADDR_AREA,- ; (accept 0 as synonym for our area) 
58 6 7F 1890 #TR4$S_ADDR_AREA,R8 
F7FD' 30 0800 1891 BSBW CNFSPUT_FIECD 3 Replace node address 
80 EF 8 1 3 EXTZV #TR4$V_ADDR_DEST,- 3; Restore the node # within area 
50 58 A 05 189 #TR4$S_ADDR_DEST,R8B,RO 
51. 0088 C2 9A 44 1894 MOVZBL RCBSB_AOMEAREA(R?),R1 3; Use our area as the area number 
0o8c C2 5191 op 1895 4$: CMPB =saR1_,RCBSB_MAX_AREA(R2) ; Check against max allowed area 
5B «61A «(B12 «1 38 BGTRU ; If GTRU then out of range 
0088 C2 51 91 0814 189 CMPB R1,RCBSB_HOMEAREA(R2) ; Is this our area? 
1¢ 12 0819 1998 BNEQ ; If not, then no Limit on max address 
SA A2 50 81 baie 189 CMPW RO,RCBSW_MAX_ADDR(R2) ; Check against max allowed address 
“ 1A O81F 1900 BGTRU :; If GTRU then out of range 
OE A2 rs *) 8 d 138) ry Seg RCOSU_ADOR CRE) 3 is aie local node? 
: no 
38 Be 0827 1908 CLRL R8 3 Local node is stored in the NDI data 
F7D4 0 0829 1904 BSBW CNFSPUT_FIELD ; base as zero 
08 50 8 QO82C 1905 BLBS ; If LBS, continue 
50 0000'8F C tH 1206 MOVZWL #SS$_INSFMEM,RO : Report “‘insufficient memory" 
0189 1 0834 1907 5$: BRW 3 Take common exit 
12 A5 58 B60 ett 1308 10$ MOVW R8,CNFSW_ID(R5) ; Save the new NDI node address 
0838 1910 A “‘Loop’’ node is an NDI for which an output Line has been permanently 
0838 1911 assigned in the database. Such an NDI must have a name field 
bate 1316 (ndi,s,nna) specified and, for now, must have the node address of 
83B 191 the local node. By creating a logical Link to this nodename, the 
0838 1914 Link is made to the local node but all traffic is transmitted over 
bate 1915 the specified Line. The intent of “‘lLoop’’ nodes is to allow loopback 
08 1318 testing of a line or the testing of the transport layer on the node 
bets 13it at the other end of the Line. 
0838 1919 A in node NDI cannot be converted to a normal NDI or vice-versa 
8 1920 The rules governing NDI updates with respect to the associated 
4 1921 Loopback Linename are as follows: 
B 19 $ 
; 19 
1924 
8 1925 
8 19 $ 
13 
1958 
1930 
HY 
1938 
1934 
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VO4=- NETSINSERT_NDI = PRE-IN N N 5=-SEP- 718: NETACP.SRCJNETCNFACT.MAR; 
000 ETSINSERT_NDI = PRE-INSERTION PROCESSI SEP=-1984 02:18:01 ETACP.SRCINETCNFACT.MAR; 1 (21) 
B 1935 3 
: 13 § : jl mark the new NDI for delete and return success 
3 else 
B 1938 : neither old nor new NDI are ‘‘loop’’ nodes, continue 
8 1900 
8 1941 $GETFLD ndi,s,nli : Get optional circuit name 
3250 £9 084 1946 BLBC RO, NOf_LOOPNODE : If LBC, new NDI not a ‘Loop’ 
12 AA «BS «(0848 «(194 TSTW CNESW_TD(R10) : Non-zero node address? 
0 \s 4E 1944 BNEQ NOT_LOOPNOD ; Loop nodes always use address 0 
1 8 50 1945 BISB #1aNDI_V_LOOP,- ; Mark it as being a ‘‘loop’’ node 
OB AA : 1208 CNFS$B_FLG(R10) : 
56 rf 194 TSTL 3; Is there an old NDI ? 
os 3 26 1308 BEQL 208 : If EQL no 
04 «1 58 194 BBC #NDI_V_LOOP,=- : If BC, old was not a loop node 
12 0B A6 085A 1950 CNFSB_FLG(R6),30$ =; = therefore cannot set Linename 
85D 1951 20$: SCNFFLD ndi,s.nna,R9 ; Assume no name was specified 
00000018'EF 05 0864 1956 TSTL -NDI_Q_NAME : Is the name null? 
09 13 OB86A 195 BEQL 35$ ; If EQL report ‘insufficient args’ 
O14E 31 baer 1 3ee BRW 210$ 3; Report success 
50 00° 3¢ pees 1338 30$: MOVZWL $“#SS$_BADPARAM,RO ; Indicate error 
0148 1 08 g 195 Rid 20$ 3 Take common exit 
50 0000°8F C +t 1958 35$: MOVZWL #SS$_INSFARG,RO ; Set error code 
0143 1 + tag 1933 BRW 220$ 3; Take common exit 
087D 1961 NOT_LOOPNODE: 
56 DS 0870 1306 TSTL 3; Is there an old NDI ? 
OC 13 O87F 196 BEQL 110$ 3; If EQL no 
04 €1 0881 1964 BBC #NDI_V_LOOP,- : If BC old was not a loop node 
07 OB A6 0883 1965 CNFS$B FLG(R6) »110$ 3 
88 0886 1308 BISB aCNFSM FLG_DELETE!- 3; Mark new NDI for delete 
0887 196 <19NDI-V_LOOP>,=- 3 eeeit's still a ‘loop node’’ 
0B AA 12 eH 1968 CNFS$B_FLG(R10) : 
0130 ~=s 31 tt 136) 1108 BRW 0$ 3; Report success 
OBsD 190) ; Neither the old or new NDIs are loop nodes 
12 a5 =B5 att 1978 TST CNFSW_ID(RS5) ; Is this the local node? 
06 12 «0 3 1974 BNEQ 120$ : If NEQ then no 
20 «88 8 92 1975 BISB #1a@NDI_V_LOCAL,- ; Mark it as “‘local 
0B AS 94 1376 CNFS$B_FLG(R5) 
56 D5 96 1977 120$: TSTL R 3; Is there an old NDI 
4% 1 9 1378 BEQL 130$ > If EQL then no 
12 A6 12 A5 81 O89A 197 CMPW  CNFS$W_ID(R5),.CNFSW_ID(R6) ; Are old and new address the same? 
OD 13 Bor 19 0 BEQL 1308 ; If so. branch 
1 #19 ¢ 3; The old and new address are different. If either has address ‘‘zero'’ 
ot 1? 7 3; then report that the local NDI is being falsely modified. 
05 €0 O8A1 1985 bes #NDI_V_LOCAL,- ; If BS then old NDI is local 
1E 0B A6 AS 19 $ CRF$B_FLG(R6),140$ ; == report error 
05 £0 A6 19 BBS #NDI_V_LOCAL,- : If BS then new NDI is local 
19 08 AS A&B 19 8 CRFSB_FLG(R5),140$ ; -- report error 
09D =—31 m 1? ; 1935: BRW 200$ 3; Insert new NDI into vector 
AE 1991 ; There has been no NDI node address change. 
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ze 
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If the current local NDI CNF address = NET$GL_DUM_NDI 
(which means the ACP is undergoing its initialzation cycle) 


OR 
the new NDI node address not= 0 (0 implies NDI for local node) 


then 
we're done, return success 


> 
m 
eee 
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else 
y “old'’ NDI CNF address = current local NDI CNF address 


n 
the local node NDI is undergoing a valid update. 
& 


the local node NDI is being falsely modified, i.e., the 
NDI specified via the Q10 P2 key was not the local node 
NDI but the node address parameter specified in the QI10 P4 
equals the local node address. Report the error. 


C9 09 C9 CO CO CD COCO CROCDCOCDOCDCDODODOCDOCDODODCD (7 —- 
>>PrPrrrrrrrrrr>r 
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4 
‘ 
8 
+) 
0 
4 
0 5 
O8A § 
0 5 
0 9 
SHE 0 
05 €1 0 : Bc #NDI_V_LOCAL,- ; If BC then new NDI is not for the 
F8 OB AS 088 CRFSB_FLG(R5),125$ ; local node -- we're done 
Q0O00000'EF D5 088 4 TSTL NETSGL_LOCAL_NDI ; Has the local NDI been init'd yet? 
FO 13 088 5 BEQL 1 : If EQL no, we're done 
56 OO0000000°EF D1 O § CMPL NETSGL_LOCAL_NDI ,R6 : Is the “old’’ CNF really the current 
08C 3; local node CNF 
OF 13 08C¢ 8 BEQL 150$ 3 EQL yes, br to continue 
08C4 9 140$:  SCNFFLD ndi,l,add,r9 3: Specify field i.d. as node address 
50 0000°8F 3C¢ 08¢B 0 MOVZWL #SS$_BEVACTIVE,RO ; Specify it as already in use 
08D0 1 ; elsewhere in the database 
OOED 31 0803 § 145$: BRW 2208 3; Report error 
08D 4 3 Update the logical name for the local node only if the RCB contains 
0803 5 3 a non-zero node address. The RCB contains node address 0 while the 
O83 § : ACP is initializing. 
52 O0000000°EF 00 08D 8 150$: MOVL NETSGL_PTR_VCB,R2 3; Get the RCB address 
OE A2 BS O8DA a TSTW RCBSW_ADDRTR2) ; Has the local node address been 
ered 0 3; established yet? 
6C 13 O8DD 1 BEQL 200$ 3 EQL no, we're done 
57 00000018°EF 7D sty § MOVa NDI_Q_NAME ,R7 ; Get NDI name descriptor 
08E6 4 : If this is a VAXcluster, the node name must match the name set up 
bes 5 : im the SYSGEN parameter SCSNODE. 
00000000'°GF D5 £6 $ TSTL G*CLUSGL_CLUB : See if this is a VAXcluster 
13 ae 8 BEQL ; If EQL, no - don't check name 
06 20 68 5 20 E 9 CMPCS) = =R7, (RB), #*A" ** #6,G6*°SCS$GB_NODENAME : Verify that names match 
00000000 * GF F 
A 13 F 0 BEQL 160$ 3; If EQL, names match 
50 00000000'8F 0 FA 41 MOVL £233 URONGHANE AO ; Else, report error 
00BC 1 , 1 rk: BRw 220$ 5 was 
i ri re 3 Create SYSSNODE logical name 
51 0000028 ‘EF of 904 #6 160$: MOVAB NDI_LNAMEBUF ,R1 ; Get buffer for building Logical name 
00000024 ‘EF "2 908 4 MOVL R1,ND1_Q_LNAME+4 ; Setup pointer in descriptor 


iar 
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v04-000 NETSINSERT NDI = PRE-INSERTION PROCESSIN eae 83 13: 84 ENETACP. SRCINETCNFACT.MAR;1 . (21) 
QOOO00020"EF $1 91 4 MNEGL R1,NDI_Q_LNAME : Bias the count field 
§ SF 4 $9 318 i poye a : punt? te logical nodename 
81 : 90 O9IF ; 170$: MOVB (Bose (R1)+ ; Enter the name text 
FA F4 09 é 180$:  SOBGEQ R7,170$ ; Loop 
81 3A3A BF 80 9 5 OVW #eA'::' : Enter nodename delimiter 
00000020'EF 51 CO 090A 2054 ADDL __R1,NDI ry “ENARE ; Setup the count field 
931 55 $CRELOG_S : Create a system logical name 
931 2$ “LOGNAM = “ SYSNODE DESC,=- : Logical name 
931 5 EQLNAM = NDI_Q_LNAME ; Equivalence name 
75 50 =-€9 re 28 BLBC RO, 9308 3; If LBC then error 
948 066 : Update the logical name for the alias node only if the RCB contains 
0348 be3 3 a non-zero alias address. 
52 OO000000'"EF D0 208 O68 200$: MOVL NETSGL_PTR_VCB,R2 ; Get the RCB address 
008D C2 PH 099 64 TSTW  RCBSW_ALIAS(R2S ; Is there an alias local address? 
56 1 328 065 BEQL 204$ ~ fn we're done 
008D C2 12 aS B11 «(095 066 CMPW CNFSW_ID(R5) ,RCBSW_ ALIAS(R , 4 "i: ed the alias NDI entry? 
4E 12 844 067 NEQ 204$ ~ 3; Skip if n 
57 Q0000018°EF 7D 096 068 va ND1_Q_NAME ,R7 ; Get NDI none descript 
51° OO0000028"EF  9E 34 36? MOVAB NDI LAAREBU R1 :; Get buffer for Pian Logical name 
00000024'EF 51 00 4 070 MOVL R1,NDI_Q “~* +4 3 setup pointer in in descr ptor 
sees tent 51 43 09 071 MNEGL R1,NDI-Q 3: Bias the count fiel 
1 SF 8F 9 3443 or¢ MOVB me ee cmt : Buitd logical aeaeenal 
03 11 098 07 BRB 2038" 3: Continue 
81 He 90 oe Bee opee: MOVB (RB)+,(R1)+ 3 pacer the name text 
FA 57 F4 098 75 203$:  SOBGEQ RY .20e$ ; Loop 
81 3A3A 8F BO 0988 2076 MOVW @*a':;' 3; Enter nodename delimiter 
00000020'EF 51 CO 098D 2077 ADDL R1,NDI_ a “LNANE ; Setup the count field 
0994 2078 $CRELOG_S : Create a system logical name 
0994 2079 OGNAM = ~ CLUNODE DESC,.- ; Logical name 
0994 2080 EQLNAM = NDI_Q_LNAME ; Equivalence name 
12 50 +€9 Bear +t BLBC RO,220$ s LBC then error 
9AE 20 § 2048: ; 
oon Bar ; New will be inserted into the data base, start/reset counter timer. 
12 AS BS OQO9AE 2085 TsTw CNFSW_ID(R5) : Is — the local node's NDI? 
07 is 981 20 § BNEQ i If s 
00000000 ' GF 55 g 983 20 MOVL G*NETSGL_LOCAL_NDI . ieuatet address of local NDI CNF 
F643° 30 O9BA 2088 205$: BSBW he feet _CTR_TIMER 3; Start/reset automatic counter timer 
50 01 DO 098D 44 10$: M0 : Success if not changing local node 
05 09C0 90 220$: RSB : Done 
343 24 
9C1 92 -DSABL LSB 
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- -SBTTL NETSINSERT_OBI = PRE-INSERTION PROCESSING 
3 NETSINSERT_OBI = Insert an OBI entry into database 


; This routine is called to validate the CNF entry before inserting 
it into the database. 


Inputs: 


R11 = Address of CNR 
R10 = Address of CNF 
Outputs: 
RO = Status code. If error, entry is not inserted. 


NETSINSERT_OBI:: New CNF OBI special processing 
BSBw CHK _LOGIN_OBI Check default login strings for 
combined len 


th 
BLBC RO,20$ 3; If LBC then tee Long 


If an OBI is merely the result of a ‘‘declare name/object’’ Q10 then 
when the channel over which the object is declared is broken it is 
appropriate to delete the OBI entry from the data base. However, 
in order to prevent a defined (via NCP) object from being removed 
if it is subsequently declared and then ‘‘undeclared’’ (by having its 
associated channel broken) it is necessary to mark each OBI if it 
at any time exists without being in a ‘‘declared’’ state. 


Note that it is sufficient to mark the OBI whenever it is bein 
(re)inserted into the database and it is not currently declared. 


$GETFLD obi,l,ucb 
BLBS _—s RO, 108 
MOVL #1.R 
SPUTFLD obi,v,set 
MOVL #1,R0 

RSB 


Sete te Se Ge Sete Se Se ee 


: to ‘‘true’’ 
; Mark the OBI as apres existed 
; without being declare 

; Set success 
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«SBTTL WNETSINSERT_xxx = PRE-INSERTION PROCESSING 
NETSINSERT_xxx = Insert an entry into database 
Tet, feveres is called to validate the CNF entry before inserting 


we cme Ct - 
-000 NE 


wo 
— 2S 


a 


> 


figurati 
NSERT_xxx 
4 135 
B 2) § 3 
EB 2137 ; 
aE 
3B 1 ; it inte the database. 
Hi 1? : Inputs: 
9EB 2144 ; R11 = Address of CNR 
ose 192 3 R10 = Address of CNF 
gee 149 ; Outputs: 
44 145 : RO = Status code. If error, entry is not inserted. 
9EB 2151 * 
9EB 3 NETSINSERT ESI:: ; New ESI CNF special processing 
F612" 31 O9EB 21 BRO NETSDBC_ESI ; Event Logger ink database change 
SEE 133 NETSINSERT EFI:: ; New EFI CNF special processing 
FOOF’ 31 pee : 5 Bre NETSDOBC_EFI ; Event logger Filter database change 
OF 1 139 NETSINSERT_LLI:: ; Insert LLI special processing 
OF 1 138 NETSINSERT SPI:: ; Insert SPI database entry 
50 01 0 9F1 215 MOUL #1,R0 3 No special checking 
0 are 199 RSB 
33 196 NETSINSERT _AJI:: : Insert AJI special processing 
50 OOO'SF 3C O9F 16 MOUZWL #SS$_ILLCNTRFUNC,RO : Illegal ACP control function 
9 13 OA ore 198 MOVZBL #NFBSC_DB_AJI,R9 ; Guel fy error -- not valid for this 
: data base 
05 44 196 RSB ; Done 
SFE 198 NETSINSERT SDI:: : Insert SDI special processing 
50 9000" F 3C 44} 18 MOUZWL #SS$_ILLCNTRFUNC,RO z Illegal ACP control function 
9 1A 9A a 19 MOVZBL #NFBSC_DB_SDI,R9 ; Guel fy error -- not valid for this 
; data base 
05 “ : v6 RSB ; Done 
AO? 2174 NETSINSERT_ARI:: : Insert ARI special processing 
50 9000" GF C OA07 2175 MOUZWL #SS$_ILLCNTRFUNC,RO : Illegal ACP control function 
5 14 A OAOC 176 #NFBSC_DB_ARI,R9 ; Qualify error -- not valid for this 
~ 17 ; data base 
05 OAOF 2178 RSB ; Done 
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~SBTTL CHK_LOGIN_xxx = CHECK LOGIN STRING LENGTH 
CHK_LOGIN_xxx = Check if access control string is too long 
Inputs: 
R10 = 


+ 


1 = Address of CNR 
0 = Address of CNF 


; Outputs: 
RO = Status code 
-ENABL LSB 
CKK_LOGIN OBI: ; Check a yr 0 login string length 
CCRL R4 ; Count of number of non-null strings 
MOVAB GE! LOGIN, VEC RS ; Setup field i.d. Bae 
BRB $ ; Continue in comm 
CHK_LOGIN NDI: ; Check combined (og in string length 
cCRL R4 ; Count of number of non-null strings 
MOVAB NDI_PLOGIN_VEC,R3 ; Setup field i.d. vector 
$8B ; Check the combined length 
MOVAB NDI_NLOGIN_VEC,R3 ; Get the address of field i.d.'s 
a: BSBB :; Check the comined length 
$: nese S“#SS$_NORMAL ,RO ; Inicate success 
10$ MOVZ2WL #ICBSC_ACCESS-4,R2 ; Get max_size of string text (the -4 
:; is for 3 string count fields plus a 
; count field for the combined strings) 
20$ MOVL (R3)+,R9 ; Get next field i.d. 
BEQL ; If EQL then done 
BSBW CNFSGET_FIELD ; Get the stri ng 
BLBC RO,20$ ; If LBC then string is not defined 
INCL R ; Count number of non-null strings 
SUBL R7,R2 ; Subtract string size 
BGEQ 3; If GEQ then okay 
MOVZWL #SS$_BADPARAM,RO ; Else indicate error 
s!a better error code is needed 
TSTL (SP)+ ; Pop stack to return to origin. caller 
30$: RSB ; Return 
-DSABL LSB 
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: NETACP.SRCIJNETCNFACT.MAR; 1 ( 

IAL DATABASE INSERTION ROUTINES 

ULT DATABASE INSERTION ROUTINE 


This routine is called to insert a CNF entry in the standard Linked List. 


no old CNF) 


; Circuit CNF insertion routine 


Line CNF insertion routine 


; Local node CNF real insertion routine 

; Object CNF insertion routine 

; Event filter CNF insertion routine 

; Event sink CNF insertion routine 

: poryes Oreos CNF insertion routine 

; Logica 

; . S]ecency CNF insertion routine 
n 


Link CNF insertion routine 
CNF sertion routine 

AREA Ral pconey CNF insertion routine 
Insert block 

Get sie ¢ Held vat field i.d. 

Get t ield va ue/descriptor 

iove. ~% to “'new' 

Start search form oll of list 

Search database to find the ENF after 
which to insert the new CNF 

If LBS then successful 

Else locate last CNF in the queue 
Insert after item found 

Point to the —_ CNF 

Indicate success | 

Is there an fold CNF ? 

If EQL no 

If BS then CNF is not Linked into the 
CNF queue ay 

Remove ‘‘old’’ CNF from database 

Queue CNF block for deallocation 


D 11 
TCNFACT = Confi uret ten dat ta base access action 16-SE 4 
Weacb00 NET SPCIN NS_XXX = SPECIAL DATABASE INSERT g-3EF 1382 
A § «SBTTL NETSSPCINS_XXX = SPEC 
r ™ SBTTL NETSSPCINS_DEF = DEFA 
: ; NETSSPCINS_DEF = Default database insertion routine 
A ; 
“ $ Inputs: 
A 5: R11 = Address of CiR 
A § : R10 = Address of -NF 
- : R6 = Address of old CNF (or 0 if 
“ 35 ; Outputs 
A? 41 : RO = Always True. 
AS rk : R5,R9 are destroyed. 
Ae 44 ; 
~ of :- 
OAS ‘3 NETSSPCINS_CRI:: 
OAS 48 NETSSPCINS— PLI:: 
we 49 NETSSPCINS_LNI:: 
AS 50 TSSPCINS_ _OBI:: 
AS : ETSSPCINS_EFI:: 
AS NETSSPCINS_ESI:: 
AS 53 NETSSPCINS_SPI:: 
pA? 3 NETSSPCINS_LLI:: 
AS 5 NETSSPCINS AJI:: 
Bae 2$ NETSSPCINS_SDI:: 
ASO 57 NETSSPCINS_ARI:: 
ASO 28 NETSSPCINS DEF:: 
59 14 AB 0 ASO 5 MOUL CNRSL_FLD_COLL(R11),R9 
FSA9° AS4 60 BSBW CWESGET FTEL LD 
5 Oe Btn 5563 Cort ORION 
51 36 Be vee $¢ MOVL S“#NFBSC_OP_FNDPOS,R1 
F5 7 ASF 64 BSBW cnr erey Y_SE ARCH 
o% 5 E Abe 65 BLBS RO, 50 
SA 4 AB DO OA6 66 MOVL — CNRSL_BL LINK(RIT) -R19 
GA $2 war 50$: a £85) ENF L_FLINK(R10) 
2 0" D AGE $3 MOVL § S*#SS$_NORMAL RO 
6 OD A72 0 TSTL R6 
4 1 A74 71 BEQL 708 
E A? os BBS #@CNFSV_F 
0A 08 A7 7 CAF SG” PLGtRO). 70$ 
4 F A7B8 74 REMQUE (R6),R 
00000000 ' F F 6 3 A7 75 608: INSQUE (R5) @NETSGQ_ TMP _BUF 
As 76 70$: RSB 


Sete Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Se Se Se & 


Return to caller 


en — 
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NEFSSPCENS NDI = INSERT NDE DATABASE INT ‘SaSEP=19B6 Oo:18:07 ENETACE.SRETNEvCNFacr.maRs1 2% (30), 


» SBTTL med atte = INSERT NDI DATABASE INTO BINARY TREE | 
NETSSPCINS_NDI = Insert NDI database into binary tree 


This routine is called to create an entry in the collate and name 
AVL tree for the new NOI. 


Inputs: 
Address of CNR 


R11 = 
R10 = Address of CNF 
R6 = Address of old CNF (or 0 if no old CNF) 


RO = Always True. 


WOOO OO ODOM MODcOCOCDCDODOCD I~ 
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RS is destroyed. 


~O 09 Cd CD Cd CD OD 0D 0D CD CD 0D OD OD CD CD Cd CD CD CD CD CD CD CD ODOD CD 
PET OPA AAAAAAAAOAPAAOSAAPSAOASAA ZC 
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97 :< 
98 
0. 99 NETSSPCINS_NDI:: ; Insert NDI block 
dO 0 00 oOvL R10,R5 3; Save new CNF address 
0° 0 01 MOVL R6,R10 : Copy old pegress 
13 0 08 BeQL 40$ : Br if no old 
D1 8 CMPL R6,NETSGL_DUM_NDI ; Is this the pirat NDI? 
13 4 BEQL :; Br if yes, s », ee tetion business 
30 0A97 05 BSBW NETSDELETE_BTE 3 Delete the old 
D1 OA9A 06 CMPL R6,R5 3; Is new CNF sane a ‘old —s 
13° OA9D 07 BEQL 40 ; Br if yes, don't dealloca 
0 AQF 08 INSQUE (R6) ,@NETSGQ_TMP_BUF : Queue old CNF block for Sestiecatten 
y AA6 09 40S: MOVL 3; Restore new CNF address 
AA9 10 BSBW NE TSAD ; Insert the new BTEs pointing to CNF 
DO OAAC 11 MOVL phe ORORMAL, RO 3; Indicate success 
05 oan \¢ 90$: RSB 3; Return to caller 
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-SBTTL 
NETSDELETE_xxx 
+ This routine i 


INPUTS: 


OUTPUTS: 


saad 1 int 
BBS 


BBS 

PUSHR 

SGETFLD n 

BSBW 

POPR 

INSQUE 
5$: MOVZBL 
10$: RSB 
NETSDELETE O81; 

$GETF 

N 

RSB 
NETSDELETE_ESI: 

SGETFLD 


10$: RS 


G TFLD 


108: RS 
NETSDELETE_LLI: 


"RO 


1" 
ne” SSER198S 82:18:67 ENETACE. SReoneVenracr mar;1 28° (3 


NETSDELETE_xxx = PRE-DELETE PROCESSING 
- Special processing before an entry is marked for delete 
s called to perform any special action that may need to be 


taken before marking a CNF for delete. 


R11 CNR pointer 
R10 CNF pointer 


R11,R10 Preserved 
RO LBS if successful 

tBe if CNF should not be marked for delete 
ALL registers may be destroyed. 


; Special processing before marking 


ABSOLUTELY NOT 


CNF for delete 

Assume not delete-able 

Not deleteable if the ACP owns 

this block . - 

If set then this is the ‘‘local’’ node 
~~. ‘x be deleted 


RO 
#CNFSV_FLG_ACP 
CNF$B_FLG(R10), 108 


“ LO AL 
CNFS FLEcRI0), S$ 
woncRI, R2, 


ol’ 

Ne TSOFLETE TE 
“M<R1,R2,R8 

(RO), lanetseae ae _BUF 


Sav 

Get * the neotlating v value 
Delete the BIEs for this CNF 
Restore regs 

Insert buffer on TMP_BUF queue. 
Indicate success 


See if declared name 
Invert status -- not delete-able if 
declared name 


Dobi.t, id 
RO Ls) 


See if its locked 

Assume not not delete-able 

If locked then not delete-able 
Else its delete-able 


‘esi.votek 
R8,10$ 
RO 


‘efi.vetck ; See if its locked 

R ; Assume not not delete-able 
R8,10$ : If locked then not delete-able 
RO ; Else its delete-able 


; Delete Logical-Link action routine 


we ceeact 
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= Configuration data base acc 
NETSDELETE_xxx = PRE-DELETE P 
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NETSDELETE 
mod 
RSB 
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SPI:: 
L 


ae 


NETSGL_NET_UCB, RS 
KB Sy COCLAK (RO) .R3 


T$C_DR_T 
XWBSW REMROD (ROS .R1 
UPD$ _D ‘ 
CALL_NETORI 


v 
S$*#SS$_NORMAL ,RO 


#1,R0 


71 
71 


3:38 AX/VMS Macr 
Get xXWB 


If EQL, then its not there 
Provide a ‘NET’ UCB address 
Get logical Link number 
Disconnect reason 


driver 
Setup status 
Done 


Delete SPI database entry 
No special checking 
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NETCNFACT - Configuration data bas ze access action 16-SEP-1984 1 AX/VMS Macro Vv04-00 Page 53 
v04-000 NETSREMOVE xxx = PROCESS THE REMOVE REQU g-SEF P=} 138 84:43: 4 YNe TAC CP.SRCJ NETCNFACT. MAR; 1 ° (33) 
4 -SBTTL NETSREMOVE_xxx = PROCESS THE REMOVE REQUEST 
Be : *SBTTL NETSREMOVE_DEF = DEFAULT PROCESSING OF THE REMOVE REQUEST 
4 9 x NETSREMOVE_xxx = Processing after a block has been removed. 
r 2 ; NETSREMOVE_DEF = Default processing of the remove request. 
BS 94 : This routine is called to perform special processing after a CNF block has 
“ 32 ; been removed from the database. On return, the block is deallocated. 
84 $3 : INPUTS: R11 CNR pointer 
r 335 : OUTPUTS: ALL registers are preserved. 
4 tbs NETSREMOVE ULNI:: ; Remove Local node CNF action routine 
4 4 ¢ NETSREMOVE_OBI:: 3; Remove Object CNF action routine 
0B4 Pt NETSREMOVE _SPI:: 
ie 404 TSREMOVE_AJI:: 
42 2405 N TSREMOVE SDI: 
0B4 $38 NETSREMOVE_ARI:: 
0B4 407 NETSREMOVE DEF:: ; Default CNF removal routine 
O86 rt PUSHQ RO ; Save registers 
ppc 410 MOVL  R11,R1 : Start at head of queue 
0B48 2411 R 30$ : Continue 
OB4A tig ASSUME CNRSL_FLINK EQ CNFSL_FLINK 
9h 413 20$: MOVL CNFSL_FLINK(R1),R1 3; Advance the pointer 
4D 2414 308: MOVL CNFSL_FLINK(R1) ,RO ; Advance to next CNF 
9832 415 BBS #CNFSV_FLG_CNR,CNFSB_FLG(RO),40$ ; If BS then at root -- done 
0B55 2416 BBCC #CNFSV"FLG DELETE - ; 
0857 2417 CNFSB_FLG(RO) ,20$ : If BC not marked for delete 
OBDA 418 ASSUME CNFSL_FLINK EQ 0 
be 2A rth REMQUE (RO),RO ; Remove this entry 
$820 " 1 : Deallocate the CNF block 
0850 4 : JSB NE TSDEALLOCATE : Deallocate the block 
$863 : : BRB 30$ : 
65 2426 40$: POPQ RO : Restore registers 
r¢ "4 7 RSB 
69 24 3 NETSREMOVE _LLI:: 3; Try to remove LLI entries 
9? : 9 PUSHQ RO ; Save registers 
6C 24 é MOVL R11,R1 : Start at head of queue 
of 4 BRB 0$ 3; Continue 
1 434 ASSUME CNRSL_FLINK Fe CNFSL_FLINK 
71 2435 gos: MOVL NFSL_FLINK(R1),R1 ; Advance the pointer 
74 26 $ O$: MOVL CNFSL_FLINK(R1) ,RO ; Advance to next CNF 
77 24 BBS NFSV_FLG_CNR Cnr se. FLG(RO),40$ ; If BS then at root -- done | 
7C 26 : BICB #CNFSMTFLG DELETE, CNFSB FLGCRO) : Erase delete marker 
4 TSTL NESC ~LENGTASLLISL XWBTRO) : Still pointing to an XWB ? | 
440 BNEQ : If NEQ yes, don't remove 
441 ASSUME CNFSL_FLINK EQ 0 | 
rr REMQUE (RO),RO 3; Remove this entry | 
5 444 : Deallocate the CNF block 


I | 
TCNFACT = Configuration data base access action 16-SEP-1 21 AX/VM v04-00 Pa 4 
Wiaco00 NETSREMOVE. DEF = DEFAULT PROCESSING OF T g-3tF =}88¢ 8}: 13: 84 YNeT ACE P.S SNET CNFACT.MAR;1 fe a 
445 : 
QOOOOO00'EF 1 8 § 44 TSDEA AT : 
ef 1 : Gee ass WE TSOE LLOCATE Deallocate the block 
B89 4s 40$:  POPQa RO + Restore regist 
05 $3 44 registers 
94 26 + NETSREMOVE _EFI: ; Remove Event filter CNF action rou 
B94 2455 NETSREMOVE ESI: ; Remove Event sink CNF action routi 
B94 $23 PUSHQ "RO ; Save registers 
= dO 97 2455 MOV R11,R1 ; Start at head of queue 
0 11 aA +28 BRB 30$ ; Continue 
C 24 ASSUME CNRSL_FLINK FG CNFSL_FLINK 
51 61 4 9C $28 gps: OVL CNFSL_FLINK(R1),R1 ; Advance the pointer 
50 61 DO OB9F 2459 50S: MOVL CNFSL_FLINK(R1) ,RO ; Advance to next CNF 
18 0B AO 00 €E0 A 460 BBS #CNFSV_FLG_CNR,CNFSB_FLG(RO),40$ ; If BS then at root -- done 
01 €1 OBA? 2461 BBC = ACNFSV“FLG DELETE - : 
FO 0B AO Ag 46¢ CNFSB_FLG(RO) ,20$ : If BC not marked for delete 
OBAC 246 ASSUME CNFSL_FLINK EQ 0 
50 60 OF peat re: REMQUE (RO),RO 3; Remove this entry 
es 288 : Deallocate the CNF block 
50 gp OBAF 2468 PUSHL RO ; Save block address 
F44C* 30 O0BB1 2469 BSBW NETSDBC_EF 1 ; Inform EVL of database change 
26 8EDO poe ry POPL RO 3; Restore block address 
00000000' ef + oot t7¢ 3 UE ISDEALLOCATE 3; Deallocate the block 
OBBF 2474 40$: POPQ RO ; Restore registers 
05 dae of? RSB 
OBC a3$ NE TSREMOVE_NDI ; Remove NDI from the List 
05 OBC3 2478 


- Configura 
SCAN. XW = 


m4 
4 
C4 
Ch 
C4 
C4 
C4 
C4 
C4 
C4 
C4 
C4 
£4 
C4 
C4 
00000000 
808 
00 
8B 0000 
DO 0004 
12 0007 
HS 0009 
C 00D 
AF 
0 001 
C o01¢c 
C 00 
dO 600 
E8 00 
Bi Q02A 
13 00 f 
Bi 00 
12 0034 
6 036 
5 Be 
| Bh 
ns $8 
o 047 
1 Oheg 
C6 0048 
dO oct 
Hl 
056 
000008C4 
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ata base access action 16-SEP-1984 }:13:3¢ AX/VMS Macro V04-00 Page 33 
WB LIST -SEP-1984 02:18: NETACP.SRCIJNETCNFACT.MAR; 1 (29) 
A ~SBTTL SCAN_XWB = SCAN XWB LIST 
; SCAN_XWB = Scan XWB List to total active Links and delay 
; INPUTS: R11 NDI CNR address 
; R10 NDI CNF address 
R9 scratch 
Re Node address 
R RCB address 
R1 = RO scratch 
; OUTPUTS: R7 Average delay found 
: R8 Total number of active links 
. SAVE_PSECT 
-PSECT NET_LOCK_CODE,NOWRT,GBL 
SCAN_XWB: ; Scan XWB List 
PUSHR #*M<R2,R6> ; Save some reg(s) 
OVL R8,R1 ; Copy the address 
NEQ : If NEQ then not Local 
MOVZWL RCBSW_ADDR(R7) ,R1 ; Copy the local address 
MOVZWL RCBSW-ALIAS(R7) ,R2 3; Copy the local alias address 
5$: DSBINT #NETSC_IP : Synchronize with NETORIVER 
OVL RCBSL_PTR_LTB(R7) RO ; Get LTB address 
MOVZWL LIBSW_SLT_TOT(RO),R9 ; Get no. of XWB's to check 
CLRQ K 3; Init Link count and delay 
10$: MOVL Le), SLOTS(RO)CR9],RG ; Get the next XWB 
BLBS R6,208 ; If LBS slot not in use 
CMPW © XWSW_REMNOD(R6) ,R1 : Remote node match? 
BEQL 3; Branch if matc 
CAP XWBSW_REMNOD(R6) ,R2 3; Alias match? 
BNEQ 20$ : Branch if no 
15$: INCL R8 ; Increment total active Links 
MOVZWL XWBSW_DELAY(R6),-(SP) ; Get de 
ADDL (SP)+,R7 ; Add to total 
20$: SOBGTR R9,10$ : Increment slot number and loop 
ENBINT ; Restore IPL 
CLRL Re 3; Assume node Links 
TSTL R 3 Any Links? 
BEQL 30$ 3; If EQL no 
DIVL R8,R7 ; Compute average delay 
MOVL #1,R0 3; Indicate success 
30$ ro #*M<R2,R6> ; Restore registers 


»RESTORE_PSECT 


<z 


ee 
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se access at len -SEP-1984 AX/VMS o V04-00 Page 
UTINES See SBe Bhi 18i87 FARTNES Becta v le OO anes Ome (86, 


-SBTTL LNI PARAMETER ACTION ROUTINES 
NETSLNI_V_LCK = Get status of conditionally writeable fields 


NETSLNI_L_ADD = Read or write executor address 
NETSLNI- +t “ACL = Get number of currently active Links 


COL = Get poh gh value 

“NAM = Get Local node name 

CNT - Get pty obs clear) local counters 

PHA = Get NI physical address to be used by this node 
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4 279 INPUTS: R11 LNI CNR aedrese 
OBC4 254 R10 LNI CNF addre 
OBC4 246 Rg FLD i.d. of field being read 
OBCS 254 R1 Scratch 
88 : ate RO Scratch 
OBC4 2546 ; OUTPUTS: R1 Address of field value or longword string descriptor 
0BC4 2547 RO Low bit set if R1 is valid 
? 378 Low bit clear otherwise 
0BC4 2550 ALL other register values are preserved. 
git 2 
OBC4 228 ic ETSLNI_V_LCK:: ; Get status of cond. writeable fields 
0930 30 OBC4 2554 6SBW NETSGET_LOC_STA 3; Return local state in 
50 01 91 O0BC7 555 CMPB #LNI$C STA. OFF RO 3; Is the ACP off? 
OA 13 fee 228 BEQL 3; If so am ts fo, write fields 
50 04 91 cc 55 CMPB #LNISC_STA_INIT,RO 3 1s the AC ting 
05 13 OBCF 2558 BEQL $ 3 so okay = yds fields 
51 4 + 30) $22 Dy 4 Fd 3 Indicate ields are locked 
: Con 
51 D4 QOBD6 2561 5$: CLRL R1 : Fields are not locked 
50 00° oO 0BD8 266 10$: MOVL S*#SS$_NORMAL ,RO 3; Success 
05 4 307 RSB 
Geb 565 NETSLNI_L_STA:: ; Execuses state (read/urite parameter) 
50 34 Dc 266 BCBC Ra cNF to be read 
26 AA 38 90 DF 367 Move RB, CNFSC_LENGTH+LNISB_ sTACRIO) Store in LNI 
51 26 AA 9A EB 29? 50$: MOVZBL eHFSC LENG THOLHI 30. eaten. R1 Get ne to ytete 
04 51 91 OBE9 2570 CMPB)soaR'1, #LRISC_STA_INIT “Enitializin ng’ 
03 12 OBEC 371 BNEQ  80$ : If not, then M, 
51 1 GA EE ie MOVZBL #NMASC_STATE_OFF,R1 : Assume OF F 
50 00° oO F1 25735 80S: MOVL S*#SS$"NORMAL, RO™ : Return success 
05 3 ene RSB 
3 278 NETSLNI_L_ADD:: g inecuser address (read/write parameter) 
06 28 eg F 57 BCBC RO,50$ h if to be read 
24 AA 39 99 4 278 nove R8,CNFSC_LENGTH+LNI SW_ anpenrane Store in LNI 
51 24 AA $f F 580 50$: MOVZWL CNFSC_LENGTH+LNISW_ADD(R10),R1 ; Get node address 
0333 C : 1 BSBW SUPPRESS AREA ; Suppress area, if necessary 
50 00° C ¢ 80$: MOVL S*#SS$_NORMAL ,RO : Return success 
ai 
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v04-000 LNI PA CTION ROUTINES ety 83313589 ENETACP. SREINETCNFACT .MAR: 1 ° (30) 
NETSLNI_L_ACL:: 3; Get number of currently active Links 
50 00000000" HOV NETSGL_PTR_VCB.RO : Get RCB pointer . 
,. 43 EQL 10$ ; Br on error 
51 54 a0 3 MOVZWL RCBSW_MCOUNT(RO) ,R1 :; Get number of Links + 1 
1 DECL 3; Subtract out the ACP reference 
50 1 , 108 wee #1,R0 3; Indicate success 


NETSLNI_S_COL:: Get collating value 


83 4 9 “MOVB #1, (R3)+ 3; Enter a static value 
50 00°8F 3 nove #S$$_NORMAL ,RO : Indicate success 


NETSLNI_S_NAM:: 
MOVL $NETSGL_CNR_NDI,R11 
MOVL NETSGL-LOCAL_NDI,R10 
9 ae ndi,s,nna 


Get local node name 
Get the NDI root block 
Get the local NDI CNF 
Get node name field 


5B QOQO00000'EF 00 
5A QO0000000"EF 00 


08 5 5 0, Branch if not present 
8 MOVC R7, (RB), (R3) Copy into buffer 
50 00°F 90 MOVB  #SS$_NORMAL,RO Indicate success 
05 10$: RSB Return status in RO 


NETSLNI_S_CNT:: 
MOVL NETSGL_CNR_NDI,R11 
MOVL NETSGL-LOCAL_NDI,R10 
BSBW NETSNDT_S_CNT 


Get (optionally clear) local counters 
Get the NDI root block 

Get the local NDI CNF 

Get the counter block 

Return status in RO 


5B QOQO00000'EF 00 
5A 00000000'EF Be 
0188 be 
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NETSLNI_S PHA:: _ 
$GETFLD Lni,l,add 3; Get node address 
0A 50 «ED BLBC 0 : Error if not set 
83 OO04O00AA 8F D0 MOVL #TRSC NI_PREF IX, (R3)+ 3; Set NI Phase IV prefix 
83 58 80 4 MOVW R8,(R3)+ 3; Append Phase IV node address 
05 7 90$: RSB 3; Success 
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- Font iguretion ta base access action it i dP 4 a AX/VMS Macro V04-00 
NDI PARAMETER ACTION ROUTINES “SEP-1984 02:18:01 CNETACP.SRCINETCNFACT.MAR; 1 
34 ~SBTTL NDI PARAMETER ACTION ROUTINES 
C7 ; NETSNDI_V_REA = Get node reachability status 
C7 ; NETSNDI_V_LCK = Get status of genes onally writeable fields 
34 : 3; NETSNDI_V_LOO = Get bit which is set if the CNF is for a ‘‘lLoopback'’ nodename 
C7 6 § : NETSNDI_L_ADD = Read or write node address 
C7 627 ; NETSNDI_L_ACL = Get number of active Links to the node 
C7 6 8 ; NETSNDI_L_DEL = Get delay to node 
C7 629 ; NETSNDI_L_DTY = Get node type 
C7 0 ; NETSNDI_L_DCO = Get total cost to node 
C7 3 NETSNDI_L_DHO = Get total hops to node 
C7 3; NETSNDI_L_TAD = Get transformed node address 
$34 ° z 3 NETSNDI_L_NND = Get next hop node address on path to remote node 
bce 635 ; NETSNDI_S_HAC = Get aor ped node address/loopback Linename value 
C7 6 § ; NETSNDI_S_COL = Get collating sequence value 
+4 637 ; NETSNDI_S_DLI = Get Line for normal traffic to node 
bce ° 8 ; NETSNDI-S"CNT = Get (optionally clear) node counters 
0C78 2640 ; INPUTS: R11 NDI CNR address 
0C7 641 ; R10 NDI CNF address 
0C7 ret : RO FLD i.d. of field being read 
0C7 643 ; RI Scratch 
ocoe ete ; RO Scratch 
pc7e 066 > OUTPUTS: R1 Address of field value or longword string descriptor 
C7 647 ; RO Low bit set if R1 is valid 
ocoe 228 ; Low bit clear otherwise 
OC78 2650 : ALL other register values are preserved. 
0C78 2651 ; 
tT4 4 $36 = 
OETe 5684 ‘ es 
0C78 2655 : *te This set of routines assumes that the node address field *** 
0C78 $26 3 #t* is not an action routine and that it is always set. ant 
0C78 2657 ; we el 
oc7a esp; Z 
oc78 660 NETSNDI_V_LOO:: ; See if CNF is for a loopback node 
51 01 00 OC? 661 MOVL #1,R1 ; Assume loop node 
04 €0 OC7B 666 BBS #NDI_V_LOOP,- : If BS then Loop node 
02 OB AA C7D $8 CNFS$B_FLG(R10),10$ ; 
51 D4 OC 4 CLRL R ; Not a loop node 
50 00° 0 C 665 10S: MOVL S“#SS$_NORMAL ,RO ; Success 
: 2 068 RSB ; Done 
C86 O88 NETSNDI_V_LCK:: ; Get status of cond. writeable fields 
51 D4 OC 3 $6 CCRL R1 ; Say “not locked’ 
50 00° D C 6 9 MOVL S“#SS$_NORMAL ,RO ; Success 
be rte ae 
c8c or NETSNDI_V_KEA:: ; Get node reachability status 
0265 30 : : ers BSBW NDI_SETUP ; Use common setup 
CSF 76 : See if we know what the next hop is to the remote node. 
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v04-000 NDI PARAMETER ACTION ROUTINES mit} 7 84:13:84 NETACP.SRCIJNETCNFACT.MAR;1 ° ay 
CaF or? 3 If we can't determine the next hop, it is definitely 
: : of8 3 unreachable. 
0196 30 OCBF 26 p 6sBw NEXT HOP_ADJ ; Locate next hop ADJ 
2 E9 OC 6 BLBC RO,42$ : If we don't have a next hop, 
£8 ¢ 3; then it is definitely unreachable 
C9 ° 4 ; Either we know it's reachable, or we are relying on another 
C9 5 ; node to determine if it’s reachable. If we don’t really know, 
3 = then return ‘‘don't know’. 
3 “ahi tihcper 
57 a? a a 0 £32 ° 3 MOVL NETSGL_PTR_VCB,R7 ; Get the RCB address 
4AA 3C OC MOVZWL NDI_ADB(R10) ,Re : Get the node address 
pA EF QCA 690 EXTZV #TRESV_ADDR_AREA,- ; Get the remote area number 
50 52 06 CA2 2691 #TR4$S_ADDR-AREA,R2,RO 
07 13 OCA $36 BEQL 9$ ; If area = 0, then use our area 
0088 C7 «#450 91 OCA 69 CMPB rt RCBSB_HOMEAREA(R7) =; Our area? 
16 ie CAC 2694 BNEQ 45$ : If not, we don’t know it’s status 
07 0B AA_ 05 3 peat 695 39S: BBS #NDI_V LOCAL CNFSB_FLG(RIO) ,.40$ ; Skip check if local NDI 
05 008A C7 91 OCB 696 CMPB RCBSB_ETY(R § ,WADJSC_PTY_PH&N ; Are we an endnode? 
OA 13 OCBB 269 BEQL 45$ 3; If so, skip reachability check 
0282 30 ayes 698 40$: BSBW NETSTEST_REACH ; Return reachability bit in RO 
51 50 9A OQOCBD 2699 42$: MOVZBL R ; Return as param value 
50 600" 00 occg 700 MOVL  S*#SS$_NORMAL RO : Success 
05 ti oo) RSB 
50 D4 beee 108 45$: CLRL RO 3; Failure (‘don't know'') 
Sie 
bce? Ai NETSNDI_L_ADD:: 3; Node address (read/write parameter) 
06 50 €9 OCC7 270 BCBC RO,50$ :; Branch if to be read 
24 AA 38 80 OCCA 708 mov RB, CNFSC_LENGTH#NDISW_ADD(R10) ; Store in NDI 
51 24 AA 3C at 710 50$: MOVZWL CNFSC_LENGTH+NDIS$W_ADD(R10),R1 ; Get node address 
0261 30 tts 711 BSBW SUPPRESS_AREA ; Suppress area, if necessary 
50 00° oO OCD7 ay 80$: MOVL S*#SS$_NORMAL ,RO ; Return success 
BY ee 
O¢B 715 NETSNDI_L_DCO:: ; Get total cost to node 
1 10 OCDB Ay BS8B GET_COST_HOPS : Get cost/hops to node 
05 50 = =«=«E9 bcoe 71 BLBC RO, ; Exit if error detected 
7» 3+ Gf SS 3 ced o8 EXTZV #0,#10,R1,R1 3; Get cost 
5 pce 4 90$: RSB 
cee 7 ° NETSNDI_L_DHO:: ; Get total hops to node 
9 10 cee 7 ; BSBB grt COST HOPS ; Get cost/hops to node 
05 50 «£9 OCE 7 BLBC RO,90$ ; Exit if error detected 
51 51 OS OA FF cee 724 EXTZv #16,#5,R1,R1 > Get hops 
5 re 4 5 90$: RSB 
CF1 27 § GET_COST_HOPS: ; Get cost/hops to node 
0200 30 OCF1 27 3 BSBw NDI_SETUP 3; Call common setup 
58 05 OCFS 27 TSTL R8 3; Address 0? 
0 12 ore 730 BNEQ 5$ : so, 
58 OE A 3C «(OCF 731 MOVZWL RCBSW_ADDR(R7) RB ; then use our local address 
07 +11 OCFC 27 § BRB z_and skip following endnode check 
05 OO8A C7 91 OCFE 2735 5S: CMPB RCBSB_ETY(R7) ,MADJSC_PTY_PH4N ; Are we an endnode? 


NETSNDI_L_NND: : 
BSBW | -NDI_SETUP 
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04-000 ND] PARAMETER ACTION ROUTINES Breer eBe Bhi T8:8F PARLNES Becta ene eO many ome (99, vO4: 
13° OD 4 4 pea, 90$ ; If so, then cost/hops ‘not known’ 
A EF OD 5 8S: EXTZV #TR4$V_ADDR_AREA,- : Get the area number 
54 58 $ D 7 : #TR4$S-ADDR-AREA,RB,R4 
} DOA 27 BEQL ; If area = 0, assume our area 
0088 C7 35 te OTT 5438 a a” Ct Taste tan “eet brow 
Ps ° Ow 
0 EF QD1 oy 108: EXTZV #TR4$SV_ADDR_DEST,- ; Get the node number within area 
55 : A d1 74 #TR4$S_ADDR_DEST,RB,RS 
SAA ; rH p18 rae CHP Y RS,RCBSW_MAR_ADDR(R?)—; 1s node within range? 
3 en no 
9 443 744 BSBW test REACH ; Get the node's type 
50 51 tO BF 5B Spdu She6 eT eee lintermh ieee 
= : Iso node e code 
02 9 8} D29 29 CMPW =s- RO, MAD $C_PTY_PH2 : Phase II direct adjacency? 
2 Opec ore NEQ ; Branch if no 
51 0400 4 7 4 S44 MOVZWL Eigtere-m : peturn seers ~ hops=1 
:; Exit w success 
D 751 
51 vate Tal 3c «(OD 7 § 50$: MOVZWL G*NETSAW_MIN_C_HCR5],R1 ; Get cost/hops to node 
00" 43 44) 4 ? gos: nOvL $*#SS$_NORMAL ,RO ; Success 
D41 2755) 
ape 7 § NETSNDI_L_ACL:: ; Get number of active Links 
0180 30 0041 275 BSBw NDI_SETUP ; Call common setup 
see: ped 16 0044 2758 JSB SCAN_XwB 3; Scan XWB List and total up Links 
51 8 3 40 o, ROVE RB,RT : Store number of Links 
OD4E 761 
D4E P66 NETSNDI_L_DEL:: ; Get delay to node 
3 30 OD4E 276 BSBW NDI_SETUP ; Call common setup 
OQCOO0000'EF 16 0D51 2764 JSB SCAR_XwB : Scan XWB List and get average delay 
51 7 43 tH ros pov R7,RT ; Store average delay 
D5B 276 
0196 0 338 ree WETSNOLL Dives NOI_ SETUP : at Agen a aot 
: common u 
O1A4 M4 DoF 770 BSBW is] REACH : See if node is poeshable 
10 50 9 0D6 77 BLBC RO, 30$ ; If LBC then no 
51 51 10 9C 0064 00 ROTL #16,R1,R1 : We only want the type 
me: C 0068 277 MOVZWL RI, ; Extract off the type 
51 FFFF 8F # O70 ore a | al seach 3 H ene type aan te ab 
: not return n 
96 D4 007 ore CLRL RO ; Else indicate failure 
05 44) ‘ad 30S: RSB 
017C 30 oF 773 en aa NDI_ SETUP : to — 
D7? 781 NDI_L_TAD: ‘n : Get node trensforned address 
51 58 if D7 7 § MOVL R8B,R1 ; Copy the address for returned value 
04 p78 97 BNEG : Tf WEQ then not Local 
51 of A7 ‘ D 784 MOVZWL RCBSW_ADDR(R7),R1 ; Copy the local address 
1B4 D 785 108: BSBW SUPPRESS_AREA ; Suppress area if necessary 
50 01 D 7 § MOvVB #1,R0 3; Indicate success 
0 D 7 RSB 
D 7 3 
D 7 
D 790 


@MocyS—o 


GocDCcocECECo~ 


0169 30 Call common setup 
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TCNFACT - ess action 16-SEP-1984 01:13: AX/YMS Macro v04-00 Pa 1 NE} 
yO4-000 ND ee PE a tat Let ee vo4 
Locate next hop ADJ 
If LBC then no 
Get partner's node address 
Suppress area if necessary 


BSBB N Sata 
W 


BLeC RO, 
MOVZWL ADJS$W_PNA(R7),R1 
BSBU SUPPRESS_AREA : 


sd 
o 
bad 


; Locate next hop ADJ 
: Inputs: 
R10 = CNF address 
Re = Node address 
R? = RCB address 
Outputs: 
R7 = ADJ address 
Ri = ADJ index 
RO = status 
R8 is destroyed. 


EXT_HOP_ADJ: 
6es 


m 
So 


#NDI_V_LOCAL,= : If not local node, 
CNFS$B_FLG(R10) ,1$ 
oe  paeaichtencldcenae this, bo s Gre we an endnode? 


ODA2 BNE 1$ 3 p not 

51 OOAA DAS RCBSW_DRT(R7),R1 ; Setup ADJ to designated router 
DAI BRB 8$ 3; Get next hop ADJ 
0D 1$ EXTZV #TR4$V_ADDR_AREA,- ; Get the area number 


#TR4$S_ADDR_AREA,R8,RO 
rea = 0, then use our area 


10$ ; If a 
CMPB RO,RCBSB_HOMEAREA(R7) ; Is this in our area? 
:; If so, then it’s ok 
CMPB RCBSB_ETY(R7) ,MADJSC_PTY_AREA ; Do we know about outside areas? 
; so, lookup next hop for area 
RCBSW_LVL2(R7) ,R1 Get ADJ to nearest level 2 router 
$ Get next hop ADJ 
If we are not enabled for Level 2 
; routing, then act Like a Level 1 router 
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#RCBSV_LVL2,- 

RCB$SB_STATUS(R7) ,4$ : 

Be RCBSB_MAX_AREA(R7) ; Within range? 
{ 
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abe 
DC 
dco 
pcc CMPB 
DDI BGTRU f out of range, unreachable 
51 20 B7 DDS MOVZWL SSCBRL PTR_AGACRT) ERO] A Get ADJ to area router 
DD 8$ MOVL  R1,R Pass ADJ index argument 
F222" DDB BSBW NETSFIND_ADJ ; Get next hop ADJ address 
+ BRB 208 Return with RO/R1/R7 set 
0122 DE 10s: BSBW TEST_REACH : See if node is reachable & get ADJ 
+F 208: RSB 
50 DE4 708: CLRL RO ; Unreachable 
DEG RSB 
DE? NETSNDI_S_CNT:: ; Get node counters 
50 0000'8F 45 DE? MOVZWL #SS$_BADPARAM,RO ; Assume loop-node 
046 =«C DEC BBS #NDI_V_LOOP,- :; If BS then loop node 


D 1 
TCNFACT - Configuration data base access action 16-SEP-19 :1 AX/VMS Macro V04-00 Page 
WOus000 NDI PARAMETER ACTION ROUTINES g- -SEP- sats ri 8}: 18: 4 ENETACP. SRCIJNETCNFACT.MAR; 1 . 3 
4 AA DE 4 CNF$B_FLG(R10),30$ ; ...no counters for loop nodes 
54 o00d00s8'EF DO ul MOVL —-NETSGL_ PTR. VCB_Ré i Get RCB address : 
53 DD ODF 2 PUSHL : Save original output pointer 
06° F QDFA PUSHAB Pees ; Setup return address 
58 AA § DFD MOVZWL CNFSW_ID(R10) ,R8 ; Get_node address 
1 E } 4 BEQL LOCAL -NODE_ CNT : If EQL then local node 
004 31 OE 5 BRW megoe CHT ; Else remote node 
52 8ED0 ; 3 2$ 208: POPL & ; Recover orginal counter block ptr 
0950 €9 OF 3 BLBC : Br on error 
50 00 b0 EOC 285 MOVL Co eve sc SRC_NOD.RO : Setup event database i.d. 
07¢B EOF 6 BSBW LOG — UNTERS™ 3 Log the counter block if needed 
50 01 bY ele 61 MOVL wi, ; Success 

512 86 30$: RSB 3; Done 
ei bes LOCAL_NODE_CNT: 

Eig 08 : Get local node counters. First get the common node counters, the 
0E16 se ;  ~=6first block of which is the ‘seconds since last zeroed’ counter. 
0E16 rt: : peers the lLocal-node-only counters S; the first block of which is 
0E16 3¢ ; so the ‘seconds since last zeroed’ counter. Shift the counters 
Bele Bf 3 to squeeze out this redundant counter. 

58 OF AG 3C ate ors MOVZWL RCBSW ADDR(R4) ,RB 3; Get local node address 
2A ='10 pera 14 BSBB NODE_CNT ; Get common node counters 
pele 154 : Now get snap-shot of local node counters from RCB 
51 0090 C46 9E Oe t Mad MOVAB RCBSL_ABS_TIM(R4) ,R1 3 sede to start of local node 
3; counters 
i Poe : i 679 MOVZWL #RCBSC_CNT_SIZE+4,R2 ; Total size of block 
: r i : Now format the counters 
55 vanes; adh 9E OE24 28 ‘ MOVAB eee aghT- TAB,RS ; Point to counter formatting table 
5 DO OEF2B 2884 MOVL ; Save output buffer pointer 
90009056"EF 1 E2E 5 JSB Rave FMT_CNT : Move and format the counters 
> eee eS E34 6 SUBL3 R7,R3,R2- ; Get number of bytes just moved 
S52 04 C E38 7 SUBL #4,R2 3; Account for super fulous "seconds 
E 8 3 since last zeroed’ 
5 19 OE 8 BLSS 60$ ; If LSS then no NDI counts were moved 
67 04 A7 2 § E 90 MOVC3 R2,4(R7),(R7) : Shift the counters, update R 
01 eae 91 60S: MOVB #1,R0 : Indicate succes 
0 tz 3 RSB :; Return status to co-routine 
eee 94 NODE_CNT: : Move common node counters 
050 8F E4 95 PUSHR #*M<R4,R6> ; Save regs 
5E 00000064 8F C3 ESA 9 SUBL FONT FAT _BUFSIZ,SP 3; Create work area on stack 
—E OD E51 9 MOVL SP,R6 : Point to it with R6 
33 D4 0E54 38 CLRL 3; Assume we don't clear counters 
. to: g 9 BBC #NETSV_CLRCNT : If BC, don't clear the counters 
02 00000000'EF E 9 NETSGL_FLAGS,20$ ; 
5 E 9 INCL : Else, zero the counters 
F19D° E6p 9 § 208: BSBW N NET BREAD. NDI_CNT 3; Get the node counters 
1¢ 50 3 E 9 BLBC ; Br if no node counters 
me C 0E&66 2904 MOVZWL Pabeoe _LENGTH,R2 : Get size of node counter area 
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NETSNDI_S 


NETSNDI_§ COL:: 
CCRB 
BBC 


R3)+ 
#NDI_V 


#1,-1( 
ND{_ADD+1(R10),(R3)+ 
NDI~ADD+0(R10) . (R3) + 


#NDI_V_MARKER, - 
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UTIN P=1984 NETACP.SRCIJNETCNFACT.MAR; 1 1) v 
MOVAB NDC_CNT_TAB,RS5 ; Set counter forr’*ting table 

JSB FAT_CNT ; Format the counters 

; Done, restore the stack and return 
ADDL = #CNT_FMT_BUFSIZ,SP ; Create work area on stack 

POPR #°M<RG RED ; Restore regs 

RSB ; Done, return status in RO 

MOVZWL C539 AOSUCINODE RO ; Node counters unavailable 

BRB 3 3; And leave 

; Get Line for normal traffic to node 

$t ndi,s,nli,R9 : Identify loopback lLinename 

BBS #nni_V "4 P,- : If BS then Loopback node 

CNFSB_FLG(R10),5$ ; 

BSBW NDOI_ SETUP ; Call standard setup 

BSBW went HOP_ADJ ; Get next hop ADJ address 

BLBC RO,10$ : Skip if not found 

MOVZWL R1,R ; Setup ADJ index for subroutine call 
BSBW  NETSADJ_LPD_CRI : Get the CRI for this adjacency 

BLBC RO,10$ :; If LBC then index is invalid 

CLRL RO ; Assume no CRI 

TSTL = =R10 ; Is there an associate CRI ? 

BEQL 10$ : If EQL no (could be “‘local'’ LPD) 
SCNFFLD cri,s,nam,R9 3 Identify the Line name field 

BSBW CNFSGET_FIELD : Get it 

BLBC RO,10$ : Branch if not present 

MOVC R7, (RB), (R3) 3 Copy into buffer 

MOVZWL #S$$_NORMAL ,RO ; Indicate successful 

$B ; Return status in RO 


Return the collating sequence string used to determine where 
in the CNF List this particular NDI should be inserted. The 
expected order here is: 


NDI‘s are sorted first according to the collating value of 
their associated ‘‘loopback"’ Line -- the collating value of 
the null opneprec® Line is zero and therefore NDI‘s without 
a “‘lLoopback"’ Line will appear first in the List. 


NDI's with the same ‘‘Loopback"’ Line are sorted in ascending 
order of their node address -- since the node address 
associated with the local node's NDI is zero by convention 
it will appear first. 


Get collating sequence string 
Begin with lowest possible value 
AP If BC then not loop node 
NFS$B_FLG(R10),10$ 

R3) Start string with huge value 

Enter high order node address byte 

Enter low order node address byte 

Append loopback Linename, if any 

If marker CNF, 
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NETSNDI_S_NNN: : 
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data base access action 16-SEP-1984 01:1 AX/VM o V04-00 Pa 
TION ROUTIWES -$ Hitt 4 83: 13: 8 INET ACE P.S SNETCNFACT. MAR; 1 - (ft) 
CNF$B_FLG(R10) ,20$ 
MOVB #1, (R3)+ ; Then add a byte to make the node 
208 ase 3; number unteus from normal CNFs 


NETSNDI_S_HAC:: ; Get hashed node addr/loopback 


: Linename value 


: This value is used in a uniqueness check to enforce the rule 
3 that “‘no two NDI entries that have the same node address 
: will be associated with the same loopback circuit name’. 
Mov nat ADD«RI0), (R3)+ ; Store the node addres 
HAC1: SCNFFLD s eed yoy (Tnensne field 
BSBW ovst i : Append it to address 
MOVB ; Indicate MT... if we got this far 
RSB ; Retrun to co-routine 
NDI_SETUP: 


MOV - L NDI_ADD(R10) ,R8B ; Get the address 
MOV ETSGL_PTR VCB,R7 : Get the RCB address 
ROVZUL #Sss _NOSUCANODE , RO : Assume failure 


TEST_REACH: 
PUSHL 


USH 3; Save re 
MOVL R8,R2 $ Copy address 
BSBW NETSTEST_REACH ; Make test 
pene Re 


; Name of next node to destination 


5 NETSNDI_L_NND Get node number of ‘'next node'' 
BLBC aye 90$ ; Skip if failure 
MOVL R1,R8 ; Set node number to lookup 
BSBW NETSNDI_BY_ADD : Lookup NDI entry 

L 0,90$ ; If not found, then no name 


Get node name field 
Branch if not present 
Copy into buffer 
Success 


BLBC 
SGETFLD ndi $,nna 
BLBC 


MOVC RB), (R3) 
MOVZWL nz, cRe _NORMAL ,RO 


| . 
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v04-000 Suppress area from node -SEP-1984 84313389 YNETACP. SREINETCNFACT MAR: 1 . (33) 


-SBTTL SUPPRESS_AREA = Suppress area from node address 
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: SUPPRESS_AREA = Suppress area from node address, if necessary 

: For compatibility with older versions of DECnet at the network 

3 management layer, we must provide a mechanism so that area numbers 
3; are not returned to network management (NML or EVL) if the user 

; doesn't know about areas. This is done by setting a flag when 

3; the executor address is set, based on whether the user explicitly 
3 set the executor to a specific area or not. 

: This routine spect to be called from a parameter action routine, 
3; where NETSV_INTRNL has been set up properly. 

: Inputs: 

: R1 = Node address 

: Outputs: 

: Ri = New node address, with area possibly suppressed 


ALL other registers are preserved. 


SUPPRESS AREA: : 
RSB 


NOOO NAUE WIN 9 OD NAUSEA 9 ODOM EU "OO OONOU 


BE RWWA AA WAC POPOPOPOFUPOFINID 2 2 3 2 3 3 3 3 2 OOOO 


CGOQOOCOSCOOCOCOGOOCOOCOCO OOOO OOOOSOOOOOOOOSOoOoOOoOO F-- 
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05 ; Just return for now 
OF81 8F 6B PUSHR #*M<RO,R7,R8,R9,R10,R11> ; Save registers 
5B OO000000'EF 00 MOVL NETSGL.CNR_LNI,R11 : Set CNR address 
5A 00000000'EF 09 4 MOVL BE TSSL PTR RG ; Set CNF address 
4 $ 3; If none, then address must be 0 
4 SGETFLD Lni,v,sup ; If areas not suppressed, 
0D 58 £9 OFS BLBC = RB, 9 : then skip it 
05 O0000000'EF 09 €E0 5 BBS #NETSV ge NETSGL_FLAGS 90$ ; If internal, do not suppress 
OA 00 FO OF6 INSV #0, #TR&SV_ADDR_AREA,=  ; Suppress the area number 
51 06 6 #TR4$S_ADBR_AREA,R 
OF81 8F Ba : 90$: 4% #°M<RO;R7,RB,RI,R10,R11> ; Restore registers 
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- Test node reachability mise 1 83313589 ENETACP. SREINETCNFACT MAR: 1 . (88) 
-SBTTL NETSTEST_REACH = Test node reachability 
NETSTEST_REACH = Test node reachability 


vO4000°" netst 
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This routine tests the reachability of a node independent of the 

presence of a NDI data block. Note that a Phase III non-adjacent 

node can be reached even though there is no NDI block for that node 
— ve wip Line is mapped by address -- no other information 
s required. 


This routine returns: 


: 1) whether it is reachable or not 

; the ADJ to get to the node 

3 ) the ‘node type'’ (only if node is a direct adjacency) 
: Inputs: Re Node address 


Scratch 
RO Scratch 


Outputs: R7 ADJ address 

Ri Adjacency index of path used to reach the node 
High word has node type 
RO Status 


ALL other registers are preserved. 


NETSTEST_REACH:: ; Test for node reachablity 
PUSHR 


i Dae in Die i Dis Bi De Bi i Bi i Bi Bes Bi es Ds ee ee Be es De Ds Bs es Rs es Be RB es Be i Bs Be Bs es | n-~ 
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0158 8F 6B #*M<R3,R4,R6,R8> ; Save registers 
0 er PUSHL # ; Init storage on stack 
50 Q0000'8F C MOVZWL #SS$_NOSUCHNODE ,RO ; Assume node out of range 
51 00000000 ‘EF dO MOVL NETSGL_PTR_VCB,R1 ; Get the RCB 
= EF EXTZV #TR4&$V~ADDR_AREA,- ; Get the area number 
53 52 «06 #TR4SS_ADDR-AREA,R2,R3 
oo BNEQ 5$ :; If area = 0, 
53 0088 Ci 9A MOVZBL RCBSB_HOMEAREA(R1),R3  ; then use our area 
00 EF 5$: EXTZV #TR4&$V_ADDR_DEST,- 3 Get the node number within area 
54 $2 A #TR4$S_ADDR_DEST,R2,R4 
0088 C1 ~=53~—o9 CMPB  =—saR3, RCBSB_HOMEAREA(R1) =; Is this in our area? 
E 12 OF BNEQ 100$ 3; If not, then return unreachable 
SA Al 54 «81 «OF CMPW R4,RCBSW_MAX_ADDR(R1) ; Within range ? 
8 1A OF BGTRU ; If GTRU then out of range 
6E if B144 3C OF MOVZWL @RCBSL PTR_OA(R1)(R4], (SP) 3 prt ADJ index to the node 
5 gf 4 F MOVL ; Get index 
FO 6° F BSBW NETS IND_ADJ ; Get ADJ & LPD address 
25 E9 OF BLBC 3; If error, report node unreachable 
02 AE FFFF BF BO OF MOVW  #ADJSC_PTY_UNK,2(SP) |; Assume type is unknown 
A €F OFB EXTZV #TR4$V~ADDR_AREA, - j Get, the area of the adjacency 
50 04 A7 : FB 9 #TR4$S_ADDR_AREA, ADJ$W_PNA(R7) ,RO 
13 OFB 9 BEQL 10$ 3; If area = 0, skip area match 
53 0 »d1 OFBB 95 CMPL RO,R3 3; Does area match? 
D 12 OFB 38 BNEQ 3; If not, then not adjacent 
O €D OFC 97 108: CMPZV «= #TR4SV_ADDR_DEST,- ; Poss node number match? 
54 04 A? OA FC 98 #TR4$S_ADDR_DEST ,ADJ$W_PNA(R7) ,R4 
> ve Oe 9 BNEQ & : If not, we don't know the type 
02 AE 01A7 9B OFC 00 MOVZBW ADJSB_PTYPE(R7),2(SP) ; Store type of partner node 
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TCNFACT - Configuration data base access ; eon 1 4 01:13: AX/VMS Macro V04-00 Page 67 
- NE STEst_R EACH = fest node reachabil §: Ep =}382 83:48:89 NETACP.SRCIJNETCNFACT.MAR; 1 . (3) 
50 9" 9 FC 101 50$: MOVL $,R3SS_NORMAL RO i [ndice e e reoehente 
FD 1 R : And ex th success 
50 0000'8F ‘ FD 1 it F MOVZWL #SSS_UNREACHABLE ,RO 3; Node yy known, but unreachable 
1 BED FD 104 100$: POP 1 ; Recover path and type 
0158 8F BA OFDA 3105 POPR #*°M<R3,R4,R6,RB> ; Restore registers 
05 OFDE 3106 RSB 
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-SBTTL OBI PARAMETER ACTION ROUTINES 
NETSOBI_V_LCK = Get status of conditionally writeable fields 


NETSOBI_S_COL = Get collating value 
NETSOBI_S_ZNA Get combined number ,name 
NETSOBI_S_IAC Get default inbound access 
NETSOBI_S_SFI Startup file id string 


NDI CNR address 

NOI CNF address 

FLD i.d. of field being read 
Scratch 

Scratch 


wey cNract = Con 
v04-000 OBI P 
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INPUTS: 


o— 


OUTPUTS: 


zDD DWAwDAZD 
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Address of field value or longword string descriptor 
Low bit set if R1 is valid 
Low bit clear otherwise 


ALL other register values are preserved. 


NETSOBI_V_LCK:: ; Get status of cond. writeable fields 


: If the UCB field is active then the object is a ‘‘declared’’ object 
3 or name and the conditionally writeable fields are locked. 


$GETFLD obi,l,ucb ; Fetch UCB field 
MOVL _—RO,R1 
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SPAR DFE OD DS IO MII 70 578 05 08 0 8 0 8 FF 8 8 8 re re rr rn en rn ee en re re 
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51 50 00 : iM pce field is active then CNF is 
; locke 
50 00° 00 MOVL S“#SS$_NORMAL ,RO ; Success 
05 RSB ; Return to co-routine 
NETSOBI_S_COL:: : Get collating value 
NETSOBI_S_ZNA:: ; Get combined number ,name 
; This string is used for collating and uniqueness checking. The 
; blocks are to be collated by number and all non-zero numbers must 
3 be unique (not two CNFs may share a object number) unless that 
F 3: number is zero -- since declared names will all have the object 
F s yee zero. Thus the value of this field is the object number 
F : alone if the number is non-zero, or the object number followed 
: ; by the name if the number is zero. 
F : Note: If the name itself is required to be unique then that 
; 3 check must be made elsewhere. 
F $GETFLD obi, l,num ; Get the object number 
18 50 34 BLBC R 0 § ; Br on error 
83 58 3 RB, (R3)+ 
a 3 BNEQ 2 ; If NEQ then we're done 
SCNFFLD obi,s,nam,R9 . sSont ity the object name 
05 38 BSB Mo vgik ; Append it to buffer 
06 E 1 BLBC RO,20$ ; Br on error 
B5 1 TSTW Rg ; Is the length zero ? 
02. 12 1 BNEQ 20$ ; If NEQ then okay 
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NETCNFACT - Configuration data base access action 16-SEP-1984 01:13: AX/VMS Macro V04-00 Page 69 
v04-000 0B! PARAMETER ACTION ROUTINES ety 7 3:13:89 ENETACP. SREINEYCNFACT MAR: 1 ° (8a) 
50 4 1019 3165 CLRL RO : Else illegal ZNA value 
BS ! 18 189 208: RS8 3; Return stetus to co-routine 
101C =«(31 : 
101C 3169 NETSOBI_S_IAC:: ; Get default inbound access 
03 AS OF 101C 190 POSHAR 3(R3) 3 Null access strings are 3 null bytes 
101F 3171 SCNFFLD obi,s,usr,R9 3; Setup field id 
0590 30 1 3 176 BSBW V 3 Move the username 
1 17 SCNFFLD obi,s peu. RP 3; Setup password field id 
0593 30 1 9 174 SBW ovesf : Move it 
1 175 SCNFFLD obi,s,acc,R9 3; Setup account id 
0589 30 103A 126 BSBw Ss MoveSTR ; Move it 
53 3 D1 103D 31 CMPL (SP)+,R3 : Is the access control null? 
12 104 178 BNEQ 1 : If NEQ no - proceed 
7E A 7D 104 179 MOVQ R10,-(SP) 3 Save OBI CNF,CNR 
5B QO000000'EF D0 1045 3180 MOVL § NETS$GL_CNR_NDI,R11 ; Get the NDI root block 
5A 00000900" EF 009 1046 1 MOVE N 1s LILOCAL_NOI,R10 Get the Local NDI CNF 
; Rese 
1056 31 : SCNFFLD ndi,s,nus,R9 : Setup field id 
0566 30 105d 3184 BSBW  MOVCSTR : Move the username 
1060 3185 SCNFFLD ndi,s,npw,R9 3; Setup password field id 
055¢ 30 1067 186 BSBw  MOVCSTR : Move it 
106A 13 SCNFFLD ndi,s,nac,R9 3; Setup account id 
0552 30 1071 3188 BSBW  MOVCSTR : Move it 
SA BE 7D 1074 189 5$: MOVQ (SP)+,R10 ; Restore OBI CNF,CNR 
50 01 DO 1077 3190 10$ MOVL #1,R0 3; Always successful 
; Return to co-routine to return desc. 
05 Iara 13) RSB R i d 
N 5 .SF Is: ; Startup e string 
1978 138 ETSOBI_S_SFI S file id i 
: Bu > ename spec for image activation. 
1978 132 Build .COM fil f i tivati 
1078 3197 : filename = SYSSSYSTEM:file.COM if the object number NEQ 0 
1078 3198 3 or if object name starts with ‘’S"’ 
3 e the object number 
1976 sh fil if the obj ber EQ. 0 
1078 01 3 where ‘‘file'’ comes from OB1,S,FID if its defined 
1378 8 $ or 0BI,S,NAM otherwise. 
1078 04 $GETFLD obi,l,num 3; Get the object number 
51 58 DO 1088 3205 MOVL  R8,R1 : Save object number 
1088 06 SGETFLD obi ; tid : Setup field 
10 50 €8 109 BLBS _—sRO, 108 : If LBS then field is non-null 
1 | 8 SGETFLD ob 3,nam : Else use the object's name 
58 50 €9 10A BLBC =. RO, 808 : If LBC then null, filename is illegal 
1 D5 10AB 10 10$ TSTL R1 3; Is this for object number 0? 
is 12 10AD 3211 BNEQ 20% tre ; If NEQ no, use system defaults 
24 «6 91 10AF 1 CMPB (RB) ,#*A''S 3; Does name start with ‘'$''? 
9 13 10B2 1 BEQL 15$ ; If so, use system defaults 
63 68 7 3 1 14 MOVC3 R7, (RB), (R3) ; Else allow LOGIN to use user's defaults 
50 =«—(01 1 15 MOVB #1,R0 3; Indicate success 
46 11 1 16 BRB «308 : Continue 
2 dg ! ! 15$ suet . ; Strip off ‘S 
50  OO00000E0'EF 8 1 i 208 MOVAB we ter SYSFAB.R 3; Setup for ‘non-zero object’’ defaults 
4 AO 7 90 1 $9 MOVB R?7, FABSB_FNS(RO) ; Set the current filename size 
C AO 8 oO 1 1 MOVL R8,FABSL_FNA(RO) ; Set the current filename ptr 
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NETCNFACT = Configuration data base access action 16-SEP-1984 01:13:22 VAX/VMS Macro v04-00 Page 70 
-000 0B! PARAMETER ACTION ROUTINES ett 8318584 ENETACP. SREINETCNFACT MAR: 1 . (34) 
52 O0000080'EF 9E& 10D MOVAB NETST_PRSNAM,R2 3 Get output descriptor address | 
OC A2 63 GE 1 9 : MOVAB_ (R3),RAMSL_ESA(R2) ; Set the buf ptr to rcv parse 
1 oe 4 SPARSE FAB = RO : Get the filename 
52 OB A2 9A ! : 5 MOVZBL NAMSB_ESL(R2),R2 ; Get the size of the filename 
10E : ; If the source string did not contain a trailing semicolon, 
10E 3 ; strip it from the he string so that the image activator 
! 3 3 ; will use the installed version of the image (if any). 
93 8 10€ 1 PUSHR #*M<RO,R1> : Preserve volatile registers 
68 57 B A 10EA § LOCC #*a"'s"'.R7, (RB) 3; Find address of trailing ‘';"' 
. oa 33 BNEQ 3 EQ, found it 
63 «65 B 3A 10F 4 LOCC #*A's"* RZ, (R3) ; Find version number in parsed string 
5 0 C2 10F4 5 SUBL2 R0O,R 3; Reduce size of strin by size of ver. 
00000088 ' EF 6 90 10F7 $ MOVB R2,NETST_PRSNAM+NAMSB_ESL ; ...also in the SNAM block 
! BA ork 25$: POPR #*M<RO,RT> ; Restore volatile registers 
53 2 ¢O 110 8 ADDL e 3; Advance buffer pointer 
0S 1103 39 30$: RSB 3; Return status in RO 
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v04-000 ESI PARAMETER ACTION ROUTINES met 83 13; 84 INET ACE. P.S SNETCNFACT MAR: 1 . (38) 
1} r ¢g , -SBTTL ESI PARAMETER ACTION ROUTINES 
1104 4 : NETSESI_V_LCK = Get status of conditionally writeable fields 
1 ? te ; NETSESI“S"COL = Get collating value 
1104 46 : INPUTS: R11 NDI CNR address 
1104 47; R10 ot CNF address 
1104 $3 3 RO D i.d. of field being read 
1104 49; R1 a eserch 
1} r 29 3 RO Scratch 
1194 53 : OUTPUTS: R1 Address of field value or longword string descriptor 
1104 3 RO Low bit set if R1 is vali 
Vibe 23 ; Low bit clear etharutee 
1104 56 : ALL other register values are preserved. 
1104 or 2 
1104 38 3° 
1104 5 
Mike $' NETSESI_V_LCK:: ; Get status of cond. writeable fields 
VRE 6¢ : If the state is not OFF’ then the CNF is writelocked 
1104 3264 SE TFLD esi,l,sta : Fetch UCB field 
07 50 €9 1111 65 LBC R : If field isn’t set then CNF not locked 
58 01 D1 1114 3266 PRPL SgNMASC -STATE_OFF,R8 ; Is the state “OFF” 
02 12 1117 67 BNEQ 3; If not with RO=1 
50 D4 1119 68 CLRL no. 3 Otherwize ~ Re not locked 
51 50 DO 1118 3269 10$:  MOVL : Setup field v 
50 400° bO 111E 3270 MOVL Ope S$_NORMAL RO ; Success 
05 119) 4 RSB 3; Return to co-routine 
1188 ie NETSESI_S_COL:: ; Get Get ler ing value 
11 74 STNFFLD esi, l,snk,R9 : speci ty sink type 
OD 11 11$2 $2 BRB CONVERT ; Store it as a string 
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~SBTTL EFI PARAMETER ACTION ROUTINES 


; NETSEFI_V_LCK = Get status of conditionally writeable fields 
NETSEF I~ -{- COL - Get collating value 


WET CHF ACT = Con 
v04-000 EFI P 
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; INPUTS: R11 NDI CNR ecevess 
R10 ne! NF addre 
RS =“. of field being read 
R1 Fae 
RO nthe 
; OUTPUTS: R1 Address - field value or longword string descriptor 
RO Low bit set if R1 is valid 


Low bit steer otherutse 
ALL other register values are preserved. 
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NETSEFI_V_LCK:: ; Get status of cond. writeable fields 
50 D4 cCRL 0 3; CNF is never locked 
50 01 00 MOVL #1,R0 3; Success 
05 RSB 3; Return 
O2 NETSEFI_S _COL:: 3; Get collating value 
NFFLD efi,l,sin,R9 3 Specify sink node address 
EECS' 30 113 04 CONVERT:BSBW  CNFS$GET_FIELD : Get its value 
OE 50 €9 3 05 BLBC RO,10$ : If LBC then not active 
58 DD 3 06 PUSHL R8 3; Push it onto the stack 
83 =BE 90 4 07 MOVB (SP)+,(R3)+ 3; Move all 4 bytes to y re high 
83 8— 90 4 08 MOVB (SP)+,(R3)+ 3; order byte first 
83 8E 90 4 09 MOVB (SP)+,(R3)+ 
83 8E 90 114 10 MOVB (SP) +, (R3)+ : 
05 4 11 10$ RSB 3; Retrun to co-routine 
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fi n data ba 
AR ACTION RO “SEP- NETACP.SRCIJNETCNFACT.MAR; 1 
1128 1? -SBTTL LLI PARAMETER ACTION ROUTINES 
1120 15 ; NETSLLI_V_LCK = See if CNF is write-locked 
114D 13 ; NETSLLI_L_PID = Get process Bde (external format) 
1140 8 3; NETSLLI_L_IPID= Get process internal I.D. 
1140 19 ; NETSLLI_L_DLY = Get round trip delay time 
114D ; NETSLLI_LL_STA = Get Link stare 
1140 3; NETSLLI_LL_LRLN = Get remote Link number 
1140 ; NETSLLI_LL_LLN = Get Local Link number 
1120 3; NETSLLI_L_PNA = Get remote node address from XWB 
114D g 3 NETSLLI_S_PNN = Get Partner node name 
114D § 3; NETSLLI_LS_COL = Get collating value 
1140 3 NETSLLI_LS_PRC = Get owner process name 
1140 ; NETSLLI_LS_USR = Get owner user name 
1140 3; NETSLLI_LS_RID = Get remote user i.d. 
3 - - Get Link counters 
1338 NETSLLI_S_CNT = Get Link t 
1140 ¢ 3 INPUTS R11 LLI CNR address 
1140 3 R10 LLI CNF address 
114D 4; R9 FLD i.d. of field being read 
1140 5 3 R1 Scratch 
1332 $ : RO Scratch 
114D 8 ; OUTPUTS: R1 Address of field value or longword string descriptor 
114D ys RO Low bit set if R1 is valid 
; Low bit clear otherwise 
Hap 3341 sinha Perec 
1338 *g 3 R2-R5 may be destroyed. 
3 other register values are preserved. 
114D oh ALL oth i l d 
114D 45 ; 
Heb $347 
114D 8 NETSLLI_V_LCK:: ; See if CNF is write-locked 
114D 4 288 MOVZBL #1,R1 ; Field value 
114D 50 3:88 MOVZBL #SS$_NORMAL,RO ; Indicate success 
ti 4 é) 3388 RSB ; Return 
51 D4 1140 ; CLRL R1 ; Assume LLI is locked 
114F 4 SGETFLD LLI,L,STA ; Get the current STATE 
08 50 =«E9 Vie 5 BLBC RO, : Br if error in obtaining field 
58 ; » 115F § CMPL #XWBSC_STA_RUN,R8 : Is this Link running? 
1 et BEQL 30$ ; Br if yes. LLI is locked 
51 1 QA 116 8 MOVZBL #1,R1 ; Else, LLI is unlocked 
50 00'8F 9A 1167 59 30$: MOYZBL #SS$_NORMAL,RO : Indicate success 
Bie it ae 
116C 66 NETSLLI_L_PID:: ; Get external PID 
50 24 AA 00 11 6 MOVL curse LENGTH - ; Get address of XWB 
11 64 ruke C_xwB(R10) ,RO 
50 3 AO 00 117 65 MOVL  XWBSL PID(RO),RO ; Get PID 
00000000'GF 16 1174 96 JSB G*EXESIPID_TO_EPID ; Convert it 
1 0 3 117A 6 VL RO,R ; Return it 
50 00°BF 9A 117D 68 MOVZBL #SS$_NORMAL,RO : Indicate success 
05 1181 6 RSB ; Return 
| 
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NETSLLI_L 
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MEANS OONA UE WIN O OD NA UWE AN OOOO ES WO 
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S&S 


_ 
So 
bad 
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RoRoPOROTOnOn 2 2 2 OO 
QOUFWN ODO ONAULWIN OOO 


MOVL 
MOVZBL 
RSB 


NETSLLI_L_DLY:: 
MOVL 


MOVZWL 
MOVZBL 
RSB 


NETSLLI_L_RLN:: 


“MOVL 


MOVZWL 
MOVZBL 
RSB 


OVE 


MOVZWL 
MOVZBL 
RSB 


NETSLLI_L_PNA:: 
MOVL 


MOVZWL 
MOVZBL 
RSB 


NETSLLI_L_STA:: 
MOVL 


MOVZBL 
MOVZBL 
RSB 


NETSLLI_S_CNT:: 


“MOVZBL 
RSB 


NETSLLI_S_RID:: 


“MOVE 


ess bt ten 19-3 Ee = 138e te 


IPID: 
VL 


LLN:: 
V 


1 


CNF SC LENGTH - ; 
+L C_xwB(R10) RO 

XWB$L_PID(RO) RI ; 
#SS$_RORMAL ,RO : 
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CNFSC_LENGTH = ; 
+LLISC XWB(R10) ,RO 

XWB$W_REMLNK(ROS ,R1 ; 
#SS$_RORMAL ,RO : 


; Return 


CNFSC_LENGTH - ; 
+LLISC_XWB(R10) ,RO 

XWB$W_REMNOD(ROS ,R1 ; 
#SS$_NORMAL ,RO ; 
CNFSC_LENGTH - ; 
+LLI$C_XWB(R10) ,RO 

XWB$B_STA(RO),R1 : 
#SS$_RORMAL,RO : 
#SS$_NORMAL RO : 


CNFSC_LENGTH - 
+LLISC_XWB(R10) ,RO 
Kus B_RID(RO) RI 


R1,XWBST_RID(RO), (R3) 
#SS$_NORMAL ,RO 
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RC JNETCNFACT.MAR; 1 


Get Internal PID 
Get address of XwB 


Return PID 
Indicate success 
Return 


Get address of XwWB 

Return the round trip delay 
Indicate success 

Return 

Get address of XWB 


Return the remote Link number 
Indicate success 


; Get address of XWB 


Return the remote Link number 
Indicate success 
Return 


Get address of XwWB 
Return the remote Link number 
Indicate success 
Return 

Get address of XWB 
Return the Link state 
Indicate success 
Return 

Get Link counters 
ndicate success 
eturn 


Get remote user i.d. 


; Get address of XWB 


Get remote user i.d. pte ing Length 
If EQL return with LBC in RO 

Move the name 

Indicate success 

Return 


50 24 AA 
50 9-34 AD 


63 00000054'EF 


56 
50 0000005 i 
50 = 00" 


F 


50 24 AA 

50 34 A 

"9 

15 50 

50 ew 

63 00000044'EF 50 
50 = 00 8F 


ee a 
50. SE 


SE. 04 
10 50 


50 00000038'EF 


50 24 AA 
83 38 AO 


AA 
3 A 
7E 50 FCO gr 


50 Bd? 


5B 00000000°EF 
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raw 
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a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
we Selclel inte tate 
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hte ee + $8 


NETSLLE_S 
M 


MOVL CFSE LEN 
*LLISC_ XW 


-@wa 
z2a-- 
ow=x 
~~ 

* oF 


MOVC3 RO, PNAME, (R3) 
MOV ZBL #S$$_NORMAL ,RO 


NETSLLI_S_USR:: 
MOVL CNFSE LEN 
C_xw 


+LLI 
MOVL XWBSL_PID 
Get jl 
B T0$ 
MOVZBL UNAMES,RO 
BEQL 108 
MOVC3 RO, UNAME, (R3) 
MOVZBL #S$$_NORMAL ,RO 


-~@aQ 
zan-- 
om=x 
a 

* OF 


“TSTL = RO 


BEQL =: 108 
JSB G*EXESIPID_TO_EPID 
PUSHL RO 
MOVL _ SP,RO 
SGETJPI_S = 
PIDADR = (RO),- 
EFN = #NETSC_EFN_WAIT,- 
I0SB__ = JO0SB,- 
ITMLST = ITEMLIST 
ADDL #4,SP 
BLBC _—-RO, 108 
SWAITFR_S EFN = #NETSC_EFN_WAIT 
OVZWL ~I0SB,RO 


NETSLLI_S_COL:: 
MOVL CNFSC_LENGTH - 


+L ISL XWB(R10) 
MOVB  XWB$W_REMNOD+1(R 


MOV X 
BIcwS # 
TSTB. (SP) + 

MOVB (SP) +, (R3)+ 
MOVB RO, (RS) + 
MOVZBL #S5$_NORMAL RO 


PNN:: 
VL 


O NETSGL_CNR_NDI,R11 


‘13 


RO 
0), 
MOVB XWBSW_REMNOD (RO), (R3)+ 
W WBSW"LOCLNK(RO) RO 
*C<NETSM_MAXLNKMSK>,R 


as 


Get address of XwB 


Get PID 

Get Job/process info 

If LBC then info not found 
Get string size 

If EQL return with LBC in RO 
Move the process name 
Indicate success 
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: NETACP.SRCJNETCNFACT.MAR; 1 (37) 
Get owner process name 

Return 


; Get owner user name 
; Get address of XWB 


Get PID 

Get Job/process info 

If LBC then info not found 
Get string size 

If EQL return with LBC in RO 
Move the username 


; Indicate success 


Return 


; Get Job/process info 
; any PID 


yet 
f EQL no, return LBC in RO 
PID 


; Convert to E 
; Save EPID on stack for call 


Get address of EPID 


EPID of process of interest 
Event flag 


Item List for return 
Pop EPID off stack 
Br on error 
Wait for SGETJPI to finish 
Setup status 

Return status in RO 


; Collating value 
; Get address of XWwB 


Insert remode node address 
-+- high order first 


SP se index bits only 
Pop low order bits (they're in RO) 


: Insert high order 
; Insert low order 
; Indicate success 


; Partner node name 
; Get the NDI root block 


Set yg Link number 
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WHus000 SPI PARAMETER ACTION ROUTINES "gr -SEP-1984 t $3: 13: 4 YNETACE. 8 P.S SNETCNFACT. MAR; 1 . (58) 
} 3 493 : -SBTTL SPI PARAMETER ACTION ROUTINES 
} 3 a3! : NETSSPI_S_COL = Get collating value 
121 199 : INPUTS: R11 CNR address 
12C1 s R10 CNF addres 
12C1 3 RR FLD i.d. of field being read 
! 3 § $ R isavene of result buffer 
12C1 4 ; OUTPUTS: R1 Address of field value or longword string descriptor 
12C1 5 3 RO Low bit set if R1 is valid 
! 3 § : Low bit clear etheruise 
| 3 : 3 : ALL other register values are preserved. 
12¢1 3510 ° 
12C1 3511 NETSSPI_V_LCK:: : ""CNF locked’ flag 
50 01 DO 12C1 218 novi ” #1,R0 ; Mark all ‘'cond write’’ fields as 
05 : ee az 3 cannot be written. 
1 3 515 NETSSPI_S Sef Ob: 3; Get collating value 
12C 218 Bd LD apt L,pid ; Get server process PID 
0950 €9 1 be 51 RO, 90$ : Branch if not set 
43 58 B60 12D 518 He R8,-(SP) ; Push low order word (process index) 
8 8E 90 1208 3519 MOVB (SP)+, (R3)+ ; Invert bytes, move to buffer 
83 8E 90 1208 259 MOVB (SP)+,(R3)+ 
05 12DE 3521 90$: RSB 
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ta base acc 1:1 AX/VMS Macro Vv04-00 P 

ON ROUTINES -SEP-1984 i 83: 13: 8 ENETACE. SRCJ NETCNFACT.MAR: 1 
-SBTTL AJI PARAMETER ACTION ROUTINES 

NETSAJI_V_REA = Get adjacency ‘run’ status 


Low bit clear otherwise 
ALL other register values are preserved. 


9 

: NETSAJI _L_ADD = Get partner node address 

; NETSAJI“L-TYP = Get partner noge ty 

; NETSAJIZL-LIT = Get ocjeceney * stan “interval 

3; NETSAJI_L_BLO = Get partner bloc 

; NETSAJI-L_RPR = Get partner Sroodesat’ router priority 
: NETSAJI_S_COL - Get collating value 

3 NETSAJI“S"NNA = Get partner node name 

3 NETSAJIZS"CIR = Get circuit name 

: INPUTS: R11 CNR aqerees 

: R10 ae addres 

3 R9 D i.d. of field being read 

: R3 ixeake of result buffer 

: OUTPUTS: R1 Address of field value or longword string descriptor 
: RO Low bit set if R1 is valid 
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VSVVVCVC VT VTVTVTVTVTVTVVTVTVCCTVTVTC0C0"C0"C0C0"0—€7 
i ns Di De Dee Be Re a De es Be Be a i es Be Be es Dee De Be Be i De Be 


SN NINA A AA AA AAA AMAT BS BE IWIN AAAI AAI OPN 
ARAN OOD NAME WR OD ODNAU EWN OOO NA UE WR OODNAUNE WN OQOONOULW BPS 


a a a a ed ad = = ts 8 8 8 8 2 2 = SS 2 — — — 2) 2 — 2) 2 2 —  _s 2 2 2 a 


ee eee wl ah ah ah 4h dh 4b 4b 4h Ah dh dh Abe Ab Ab bah ab db ah ah ah ah ahah ah ah eds WY) 
IN 


NETSAJI_V_LCK:: ; “"CNF locked’ flag 
50 01 09 DF MOVL #1,R0 ; Mark all ‘'cond write’ fields as 
05 e§ RSB 3 cannot be written. 
E NETSAJI_V_REA:: 
00A6§ 8630 E3 BSBw LOCATE_ADJ : Lookup adjacency 
05 50 £9 12E6 BLBC if error 
51 67 01 01 EF E9 EXTZV #ADISV RUN, #1, ADJ$SB_ stsch7) Ri ; Get flag 
05 EE 90$: RSB 
EF O 
EF NETSAJI_L_ADD:: 
009A 830 EF BSBW LOCATE_ADJ ; Looku adjacency 
oc 5 ? Fe BLBC ¢ ; Branch if erro 
51 O04 A ¢ F MOVZWL 9 ADJ$W_PNA(R7) ,R1 ; Return node address fe 4 
13 F9 BEQL : If none, then return ‘‘not set 
FC3SA 30 FB BSBW SUPPRESS_AREA : Suppress area if necessary 
05 4: RSB 
50 04 FF B0$: cURL RO ; Indicate parameter ‘‘not set'’ 
05 1 RSB 
NETSAJI_L_TYP:: 
0087 30 Bit LOCATE_ADJ ; Lookup adjacency 
o* 9 +H aS RO,90$ ; Branch if error 
51 1A A 8 MOVIBL ADJ$B_PTYPE(R7) ,R1 ; Return node type 
05 4 4 90$: RSB 
D 6 NETSAJI_L_LIT:: 
gore 30 BSBW LOCATE_ADJ t Bronch adjacency 
0c 5 E9 1 BLBC R rit if er 
06 67 01 «£1 131 7 BBC #AOJSV_RUN,ADJ$B_STS(R7).80$ ; Branch if ADJ not up 
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ee coract - Font toures ion data base acc 
v04-000 AJ] PARAMETER ACTION ROUTINES SEP- NETACP.SRCINETCNFACT.MAR; 1 (39) 
51 08 A7 5 1317 0 MOVZWL SR ISU INT LSNCRTD 6 3; Return Listen interval 
9¢ 1318 BNEQ ° 3; Ok if non-zero Be , 
Be 1310 B08: CLRL R ; Indicate parameter ‘'not set’ 
5 } 1F Z $: RSB 
1 5 NETSAJI_L_BLO:: 
0069 38 1 § BSBW LOCATE_ADJ ; Lookup adjacency 
oc 50 «#=€&9 1 BLBC 0 ; Branch if error 
06 67. 01 3 1326 8 BBC #AOJSV_RUN,ADJ$B_STS(R7).80$ ; Branch if ADJ not up 
1 06 A7 : 130A 9 MOVZWL ADJ$W_BUFSIZ(R7)7R1 : Return partner block size 
9¢ 12 1 0 BNEQ 908 ; Ok if non-zero , 
5 t: 1 2 gps: CLRL RO ; Indicate parameter ‘‘not set’ 
5 ; 3 $: RSB 
1 94 NETSAJI_L_RPR:: 
0056 30 1 95 BSBw LOCATE_ADJ : Lookup adjacency 
0D 50 €9 1 3 38 BLBC RO,90$ ; Branch if error 
50 D4 1 59 CLRL RO ;_ Assume failure 
v7? 67 01 4 1338 598 BBC #ADJSV_RUN,ADJ$B_STS(R7),90$ ; Branch if ADJ not up 
51 0C A? GA 133F 3599 MOVZBL ADJ$B_BCPRI(R7) ,R1 ; Return broadcast router priority 
50 00° DO 1343 600 MOVL  S*#SSS_NORMAL,RO : Successful 
05 ! r4] tt 90$: RSB 
1347 08 NETSAJI_S_COL:: : Get collating value 
7E 12 AA BO 1347 3604 MOvw CNFSW_ID(R10) ,-(SP) ; Push ADJ index 
83 8E 90 1348 3605 MOVB (SP)+,(R3)+ ; Invert bytes, move to buffer 
83 8E 90 134E one MOVB (SP)+,(R3)+ 
50 00° oO 1351 360 MOVL S*#SS$_NORMAL RO ; Successful 
05 1320 one RSB 
1355 3610 NETSAJI_S_NNA:: 
35 10 1355 3611 588 LOCATE_ADJ : Lookup adjacency 
2150 €9 1357 ols BLBC RO,90$ : Branch if error 
50 D4 135A 361 CLRL RO 3; Assume failure 
18 67 =—01 1 135C 3614 BBC #ADJSV_RUN,ADJS$SB_STS(R7),90$ ; Branch if ADJ not up 
04 A7 C 1360 3615 MOVZWL ADJ$W PNA(R7) ,RB ; Get partner node address 
58 00000000'EF 1364 616 MOVL NETSGC_CNR_NDI,R11 ; Get NDI root address 
0187 1368 361 BSBW NETSNDT_BY_ADD ; Locate NDI CNF block 
OA 50 €9 136€ 618 BLBC RO ,90$ ; Branch if not found 
1371 3619 SCNFFLD ndi,s nna,R9 3; Set node name field ID 
0255 30 1378 3620 | BSBW Ss MOVSTR : Copy it to output buffer 
0 ! iM ' 1 90$: RSB 
137¢ 6 § NETSAJI_S_CIR:: 
0 10 137C 4 BS8B LOCATE_ADJ ; Lookup adjacency 
OA 5 —g9 1 i 625 tat ; Branch if error 
1 6 $ CNFFLD cri,s,nam,R9 : Set circuit name field ID 
0245 30 1388 36 BSBW = MOVSTR : Copy it to output buffer 
05 ! ° ? 3 90$: RSB 
138¢ | 36 p LOCATE_ADJ: 
58 12 AA te 6 MOVZWL CNFSW_ID(R10),R8 ; Get ADJ index 
EC6D" 39 3 6 ‘ BSBW NETSADJ_LPD_CRI : Get CRI CNF, LPD & ADJ pointers 
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NETCNFACT - Configuration data base 
v04-000 SDI PARAMETER ACTION ROUTINES SEP- NETACP.SRCINETCNFACT.MAR;1 (40) 
! 3 5 > -SBTTL SOI PARAMETER ACTION ROUTINES 
1394 5 : NET$SDI_L_SUB - Get DLE substate 
! a 8 ; NETSSDI_L_PID = Get PID of process owning DLE Link 
1394 640 ; NET$SDI_S_COL = Get collating value 
1394 3641 ; NETSSDI_S_CIR - Get circuit for DLE Link 
1394 a) 3 NETSSDI_S_PHA = Get DLE page seek address (BC enty) 
} ee Sz ; NETSSDI_S_PRC = Get name of process owning DLE Link 
1394 3645 : INPUTS R11 CNR address 
1394 eg 3 R10 CNF address 
1394 47; R9 FLD i.d. of field being read 
! 8 278 ; RS Address of result buffer 
1394 3650 ; OUTPUTS: R1 Address of field value or longword string descriptor 
1394 3651 ; RO Low bit set if R1 is valid 
133¢ $36 ; Low bit clear otherwise 
if 9 654 : ALL other register values are preserved. 
Bt $e 
1394 639 NETSSDI_V _LCK:: ; “CNF locked" flag 
50 01 dO 1394 038 MOV. =—s_s#1,RO ; Mark all “‘cond write’ fields as 
05 1332 222 RSB 3 cannot be written. 
1398 3661 GET_DWB_ADR: 
56 26 AA 00 1338 666 MOVL CNFSC_LENGTH+2(R10),R6 ; Get saved DWB address from scan routine 
0° 1395 3664 _ 
1 665 NETSSDI_L_SUB:: 
F9 1 666 6588 GET_DWB_ADR ; Get DWB address 
51 46 A6 GA 1 66 MOVZBL DWBSB_SOBSTA(R6) ,R1 3; Return value 
7 a) ee F 668 MOVL #1,R0 3; Success 
05 : rei RSB 
1 671 NETSSDI_L_PID:: 
10 1 ore 6568 GET_DWB_ADR ; Get DWB address 
51 34 A6 DO 1 67 MOVL DWBSL_PTD(R6),R1 ; Return value 
50 a 674 MOVL #1,R0 3; Success 
05 ! of? RSB 
1 ery NETSSDI_S_COL:: 
7E 12 AA 4 1 $78 MOvw CNFSW_ID(R10) ,-(SP) ; Push DWB identifier 
83 ge 1 7 MOVB ea ; Copy reversing all the bytes 
33 2a. ee 6 9 MOVB (S$P)+,(R3)+ 
0 01 »? 1 6 MOVL #1,R0 3; Success 
0 ! ; RSB 
4 NETS$SD CIR:: 
10 i 3 5 : tat GET_DWB_ADR 3; Get DWB address 
58 SEA $5 1 6 § MOVZWL DWBSW_PATH(R6) RB 3; Get LPD ID 
EC38" 9 1 6 BSBW  NETSGET_LPD_CRI : Get CRI _CNF, LPD pointers 
0A 50 €9 1 ? 8 BLBC : Branch if error 
1 SCNFFLD cri,s,nam,R9 : Set circuit name field ID 
01FB §2 1 6 ? BSBW movste 3; Copy it to output buffer 
1 691 90$: RS 


ara es 
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NETCNFACT - Configuration data base access action 16-SEP-1984 01:13: AX/VMS Macro v04-00 Page 81 
v04-000 $d] PARAMETER ACTION ROUTINES oe ee 9 04:13:84 NETACP.SRCINETCNFACT.MAR; 1 . B) 
13D 6 
co 10 4 i 3 MEE en GET_DUB_ADR Get DwB add NE 
: Ge address 
+t 40 A6 09 13D 93 MOVL DWBSG_REMNOD(R6),(R3)+ ; Copy into buffer NE’ 
83 44 A6 BO 13D 96 MOVW DWBSG"REMNOD+4 (RO) , (R3)+ 
MOVL #1,R ; Success , 
50 01 odO 15€ 69 1 
0 E3 698 RSB +3 
1364 $80 NETSSDI_S_PRC:: NE’ 
B2 10 136&4 3701 BSBB = GET_DWB_ADR : Get DWB address NE’ 
50 34 A6 0 1366 10 MOVL DWBSL_PTD(R6) ,RO ; Pass process PID NE’ 
FE42 0 13EA 37 BSBW 3; Get process name NE’ 
50 0000050'EF 9A ED f f MOVZBL PNAMES,RO : Get string size .. 
63 a a 0 28 13F6 37 $ MOVC3 RO,PNAME,(R3) ; Copy process name into buffer NE’ 
0 01 BO 13FE 37 MOVL #1,R0 : Success NE’ 
05 1401 3708 90$:  RSB 3 
NE’ 
NE’ 
NE’ 
NE’ 
NE 
NE 
NE 
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NE 
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TCNFACT = Con 
VO4s000 ARI P 


>— 
ze, 
=e 
ms 
=o 
mee 


Da Pi Pin tn, Di Ty iy i iy i yn I i ee i i i ee i Lee 
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» SBTTL 
NETSARI_V_REA 
NETSARI_L_ADD 


3¢ 

> NETSA ARI “t-pe0 
: NETSARI“L~DHO 
: NETSARI-L~NND 
> NETSARI_S_COL 
: NETSARI~S~CIR 
: INPUTS: 

: OUTPUTS: 


NETSARI_V_LCK:: 
MOVL 


at at a dd nd ed nd ed od mB HOODOO OOOCOOCOCOSCOCOCOCOCOOOOOOOCOOOOOOoO 


— ee ee ee eee ee ee oe ee ee ee eee YS SS } 
SSS NNN NNN NN ee 


7 
7 
50 01 00 7? 
05 3 4 RSB 
6 3738 NETSARI_V_REA:: 
52. 12 AA Hs 6 37 MOVZWL 
00A4 0 A 374 BSBW 
51 50 9A D 374 MOVZBL 
50 * p0 2 74 MOVL 
05 74 RSB 
4 374 
4 $745 NETSARILL ADD: : 
51 12 AA 3C 4 374 MOVZWL 
D MOVL 
0 00° 00 8 374 
05 3 S RSB 
C 3750 NETSARI_L_DCO:: 
1A 10 C 375 8SBB 
08 50 =£9 E—E 375 BLBC 
OUR oA O EF 1 oe EXTZV 
0 0° 0 . 2 MOVL 
0 : oe 90$: RSB 
A 3757 NETSARI_L_DHO:: 
oc 8 10 A 375 BSBB 
08 50 =€9 . me BLBC 
51 51 9 OA EF F 376 EXTZV 
0 00° 00 4 376 MOVL 
0 7 £6 90$: RSB 
: 764 AREA_COST_HOPS: 
50. 00° 9 765 VZBL 
51 12 AA 3C 766 MOVZWL 


K 1 
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o V04-00 Page 82 
SNETCNFACT..MAR; 1 (41) 


ARI PARAMETER ACTION ROUTINES 
Get adjacency ‘'run’’ status 


Get partner node address 
cost to area 

Get hops to area 

Get next node to area 


seee 
a 
& 
- 


‘ 
a 
e 
o 


collating value 
circuit name 


CNR oe 
Hy! addre 

D i.d. “ot field being read 
hdavesa of result buffer 


zDD DDDDZD | 
oOo wo 
o-— 

a 

® 

- 


pooreve of field value or longword string descriptor 
w bit set if R1 is valid 
Low bit clear otherwise 


ALL other register values are preserved. 
"“CNF Locked’’ fla 


Mark all ‘'cond ite” fields as 
cannot be written. 


#1,R0 


Sete 


; Area reachability 

Get area number 

; Determine if area reachable 
Return boolean true/false 
Return successful 


CNFSW_ID(R10) ,R2 
NETSAREA REACH 


ROR 
Capes _NORMAL ,RO 


Area address 
Return area number 
Return successful 


NFSW_ID(R10) ,R1 
“#SSS$_NORMAL, ;RO 


Cost to area 


aces COST_HOPS Get sogte nage value 


5 En adh. soon t know 
oR1,R1 3; Get 
#0419. NORMAL ,RO : to 
; Hops to area 
are COST_HOPS 3; Get cost/hops value 
3; Exit if don’t know 
ys °6e ; Get hops 
onesie" *NORFAL. RO : Successful 


S*#SS$_NORMAL ,RO 


Assume success 
CNFSW_ TDCRION. R1 


Get area number 


NE. 
NE. 
NE. 
NE. 
NE. 
NE. 
NE. 
NE. 
NE. 
NE. 
NE. 
NE’ 
NE’ 
NE. 
NE. 
NE. 
NE. 
NE 
NE. 
NE. 
NE’ 
NE. 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE’ 
NE. 
NE’ 
NE’ 
NE. 
NE. 
NE’ 
NE. 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 
NE 


°o 
a | 
D end 
xz. 
te} 


> 
“om 


9 08 
00000000°GF41 


_ 
So 
bad 


MFUOWAUNOF 0" OOO OO 


So 
50.0909 09 09 C9 C9 0909 0908 SIN NI NINN Or 


—§ OOO NAME WN (" OOONOULS WH "O0OnN PIO 


NONOOFOSOO 

md ed ed 8 dd ed 8 = 
PS a a 
DD } © FS 00000 0000000000000 09 09 SI NI NINA AA AAA AOU BEE 
SIAWSS FAAAUIN ANA WMONEOS SNS FCO OF FS ONOD SUMIDA 


OW MW 
wo OOoOOronm 


NETSARI_L_NND:: 


NETSARI_S_COL:: 
MOVW 


NETSARI_S aay : 


L 1 
ess bites 16-SEP=1 


ase acc 4 01:1 AX/VMS Macro V04-00 Page 
OUTINES ~$eb= 138s 83:18:64 ENETACE. SREINETCNFACT.MAR:1 |” 
MOVL NETSGL_PTR yce R7 ; Get RCB address 
CMPB RCBSB B_ETY(R7) ,AADJSC_PTY "AREA Are we an area router? 
BNEQ 1 ranch if not 
BBC #RCBSV If we are not enabled for Level 2 
RCBSB Miitittttee 10$ : i routing. then act Like a Level 1 router 
moyzul. G*NETSAW_AREA_C C_ACR1J, R1 ; Get cost/hops for area 
CMPB acess. ETY(R7) ,MADJSC_PTY PHN ; Are we an endnode? 
BEQL = 20% ; Branch if so ; 
pee G*NETSAW_MIN_C_H,R1 ; Get cost/hops to ‘nearest level 2 router’ 
CLRL RO ; Don't know cost/hops 
RSB 
; Next node on way to area 
MOVZWL CNF SW 1D(R10) , phe ; Get area number 
BSBW RO.908 ; Determine output ADJ to area 
BLBC : If not reachable, then failure 
MOVZWL R1,R8 3; Set ADJ index 
BSBW  NETSFIND_ADJ : Get next hops ADJ address 
BLBC : If not found, then failure 
MOVZWL ADJ$W_PNA(R7),R1 3; Return partner’ s node address 
oseu SUPPRESS AREA. ; Suppress area if necessary 
; Get collating value 
Ov CNFSW_ID(R10) ,-(SP) ; Push area number 
MOVB (SP)+,(R3)+ 3; Invert bytes, move to buffer 
MOVB (SP)+,(R3)+ 
pol S*#SS$_NORMAL ,RO ; Successful 
; Circuit used to get to area 
mOvZ CNF SW 1D(R10) . Re 3; Get area number 
BSB” NETSAREA_R REACH ; Determine output ADJ to area 
MOVZWL R ; Set ADJ index to area 
BSBW NETSADJ _LPD_CRI : Get CRI CNF, LPD & ADJ pointers 
BLBC 0,90$ ~ ; Branch if error detected 
SCNFFLD cri,s nam,R9 3; Set circuit name field ID 
+14 mOvétR ; Copy it to output buffer 


mn data base access action 16-SEP-1984 t gi: 13: $¢ yAscyes Be Macro V04-00 Page (B) 


wey cmract - Font iguratic 
v04-000 NETSAREA_REACH = Test area reachability “SEP-1984 NETACP.SRC NET CNFACT.MAR; 1 
178) 98 ‘. -SBTTL NETSAREA_REACH = Test area reachability 
178) iy ; NETSAREA_REACH = Test area reachability 
178) 18 3 This routine tests the reachability of an area, and returns: 
1481 15 ; 1) whether it is reachable or not 
e+ 16 $ 2) the ADJ to get to the area 
14B1 \8 3; Inputs: Re Area eddress 
1481 19 ; Ri Scratch 
14B1 0; Scratch 
14B1 13 
14B1 § ; Outputs: R2 Area address 
1481 : R1 Adjacency index of path used to reach the area 
1481 4; RO Status 
1481 5 :- 
14B1 § 
1481 NETSAREA_REACH:: ; Test for area reachability 
00 DD 1481 3828 PUSHL #0 : Init storage on stack 
50  Q000°8F 3C 1483 3829 MOVZWL oot MOSUC HORE RO 3 goons area out of range 
51 pooonsoo" ee DO 1488 : 0 MOVL T$GL_PTR_VCB,R1 3; Get the RC 
008C cl 52 91 14BF 1 CMPB TRCeSe. nAX CAREA(R1) Oithine range? 
D 1A 1404 o36 BGTRU 3 _i7 GTRU then out of range 
03 OO8A C1 91 14€6 383 CMPB ee eciaitaad ae AREA ; Are we a level 2 router? 
0c 12 14CB tt BNEQ $ I not. use nearest level 2 router 
6E 208142 3C 14CD 3835 MOVZWL @RCBSL_PTR_AOA(R1)(R2], (§P) : Get ADU index to the area 
1A 13° «1402 «43836 BEQL 3 6, then unreachable 
50 00° DO 1404 3837 40S: MOVL S“#SS$_NORMAL ,RO ‘ Indicate reachable 
1A 11 #1407 3838 BRB 100$ And exit with success 
05 OO8A Ci 91 1409 3839 50$: CMPB RCBSB_ETY(R1) , #ADJSC =PTY_PHAN ; Are we an endnode? 
07 13 14DE 3840 BEQL 7 Branch if s 
6—€ OOAC C1 3C 14€0 3841 MOVZWL RCBSW_LVL2(R1), (SP) ; Get ADJ index to nearest level2 router 
— oe Ieee 7) 3: and always exit with success 
6E OOAA C1 3C 14E 435 60S: MOVZWL RCBSW_DRT(R1), (SP) ; Get ADJ index to designated router 
12 14EC 3844 BNEQ 3 and exit with success if we have one 
50 0000°8F 3C¢ Vee 845 8 MOVZWL #SS$_UNREACHABLE ,RO ; Node is known, but unreachable 
71 eee ere 38c9 ' 


0$: 
00$:  POPL RI ; Return path in R1 
RSB 


F999 FNPF N18 LV 


N 13 
ta base access action 16-SEP-1984 01:13: AX/VMS Macro V04-00 Page 85 
GET EXECUTOR STATE -SEP-1984 Oh 13 569 ENETACE. SREINETCNFACT MAR: 1 . (43) 


«SBTTL NETSGET_LOC_STA = GET EXECUTOR STATE 
; NETSGET_LOC_STA - Get the state of the local node 
> INPUTS: None 


NETCNFACT » Fon 
Vv04-000 NETSG 


; OUTPUTS: RO State value 
ALL other registers are preserved 


NETSGET_LOC_STA: Return Local state in RO 
PUSAR 


OF 80 8B #°M<R7,RB,RO,R1I0,R11> Save regs 
58 00000000' dO MOVL NETS$GL’CNR_LNI,R11 Setup the Root block ptr 
SA DO MOVL CHRSL FLINR(R11),R10 Get the first CNF block 
EO BBS #CNFS$O_FLG_CNR,- if its the root then the CNF List 
CNFS$B_FLG(R10), 108 5 


enpty 
SGETFLD ini, Get the local state 
BLBS 


RO, Br if valid 
#LNISC_STA_OFF ,R8 


a 
Assume the ‘‘off'' state 


—_ 

oO 

a & 
Sa-o SSane 


— a ot St a m—- 
Aww ewww Do? oe? oy? a a? at ot et et et et oe 
SNNAAAAAAOAOAOOMIVIVIVIVIVINIVINE —O0O 
=—OODNOAU EA "OO OONOUES UN "0O0 1 =F 


MIN 2DOOOT TTT NA 


8 
58 10$: MOVW 
50 me) 20S: MOVL R8, Get the state value 
OF 80 BA oo #*A<R7,RB,RI,R10,R11> Restore regs 


B 14 
ase access action 16-SEP-19 


TCNFACT = Con ration data b 1:13: AX/VMS Macro V04-00 Pa 6 
¥H45000 NETSN = Y_A - Find NDI CNF by node a misery 331856 ENETACP. SRCINETCNFACT.MAR; 1 “t 8, 
= -SBTTL NETSNDI_BY_ADD = Find NDI CNF by node address 
NETSNDI_BY_ADD - Find NDI CNF by node address 


; FUNCTIONAL DESCRIPTION: 


; The node address is used as an index into the NDI vector in order to locate 
correspondin CNF block. Onl real" NDI CNF blocks are considered valid, 
; the so called ‘‘phantom'’ and ‘‘loop’’ node CNFs are not returned. 


; This Cove rae is ort an optimization. It could be replaced with a call 
© S$SEARCH eql,ndi,l,add. The optimization is desireable since this 
s done os Metten: 


INPUTS: R10 Scratch 
: R8 Node egerese 
RO Scratch 
; OUTPUTS: R10 NDI address if found, else 0 
‘ RO LBS if found 


LBC otherwise 
ALL other registers are unchanged 


Get NDI by node address 
Save registers 

Get the RCB pointer 

Is this for area zero? 


NETSNDI_BY_ADD:: 
PUSHR  #*M<RB,R11> 
MOVL NETSGL_PTR vee RO 
CMPZ7V #TR4SV_ADDR_A 
#TR4$S_ADDR “AREA. "RB, #0 


0900 8F 
50 angel 
00 58 06 


BADE BE NAA ANAANAAIUIPIPIPIPIPPIPIPIPIPIPINPIPIPIPIPIPYPIPIPIPIPIPUNIPONINY 
HPO DDB NIH D NYPD OVA APATITE | OC 


QVIVIVLVPV PVP IVUDVSUSUIULVIULUS USUI SUSE USSSA ISIS SII USISIOSISIUSIOSIUSIOST 0 Bt ate 


PAN ANA ANA AAA AAA AIA AAIAI AAA ANA AIA AIA AAI AAAI AA ANINIAAI 
O00 00 Co COON COCO CO CD CO COCO CD CU COGN CD CNCDCUCDCNCNCNCNCNCD UO —- 
OOO OOOO O OOOO WWOWOOOODoyV VV VN OO 
=D OO NA MNE WN OOD NA MNE O OONOUN EW 
Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Sete Ge Ses 


— —) tS 4 — — 4 — Sw bd 2d bs a — a a as ts 2s 2) 2 a 2 tt OO -a 


A 
07 90 BNEQ 10$ ; Br if not, okay as it is 
008B CO 90 INSV RCBSB gow beg - ; Else, stuff our area into node address 
oe 904 #TR4ST_A ADDR_AREA, 
58 6 905 #TR4$S— ADDR “AREA "RB 
58 00000000" EF D0 906 10$: MOYL NETSGL CNR_ADI,R11 ; Point at root of NDI database 
A 04 90 CLRL R ; Start at be Magis) of list 
908 SSEARCH oot ng L,add : Search for the right NDI 
0900 or BA 909 POPR a*n 8,R1 {> 3; Restore rogrevarn 
1A 50 =E8 319 BLBS 4 ; Br if suc 
5A O0000000'EF DO 91 MOVL Rosi3s _LOCAL_NDI,R10 ; Get the focal NDI CNF 
50 00000000" EF 00 316 MOVL NETSOLEP PTR_VCB,RO : Get the RCB pointer 
OE AO 8 861 68 391 CMPW RCBSW_ ABR CRO) ; Is this the local node? 
6 13 oF 914 BEQL 136 : If EQL then yes 
D4 1 3915 CLRL ; Indicate failure 
A 04 7 318 CLRL Mt : Invalidate the NDI pointer 
3.0C«WWY 7 91 BRB 20 : Take common exit 
50. 6(01 $5 7 313 15$: MOVL #1,R0 3; Assume success 
7A 3919 208: RSB 


we Ce act 
v04-000 
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Pie phantom or real ND ~$Eb=138% 84313569 ENETACP. SREINETCNFACT MAR: 1 ~ (45) 


zt 
m 
“4-0 
wo 
a 


-SBTTL WNETSLOCATE_NDI = Find phantom or real NDI CNF 
NETSLOCATE_NDI - Find NDI CNF (phantom or real) by node address 
FUNCTIONAL DESCRIPTION: 
| 


If an NDI entry exists for the specified node, it is returned. Otherwise 
the address of a dummy NDI is returned as a ‘‘phantom’’ NDI, so that the NDI 
block can be used on operations (such as event logging) for nodes that are 
reachable without being defined. 


INPUTS: R10 Scratch 
R8 Node address 
RO Scratch 


OUTPUTS: R10 NDI address if found, else 0 
RO LBS if found 
LBC otherwise 


ALL other registers are unchanged 


78 


ze: Se Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Fe Ge Ge Se Ge Se 
+ 


rascals ~ le Get NDI by node address 


an a a a a Sd es nt se et tt o-= 


PUPPY IV SV DVIS SUSU SUSU VSS USVI FETS USS ISIOSISIOSISISIOSIOS 
Hr TF Woo "DWIOVTINW DOWDWDOWDOWOOOMMW 
AWNAAANA WA AA AANA. NAN. ANA. AANA DAA ANAM AMA NAAM AMN ANA ZF 


BAAN AAA ASA ES BS EEE AWWA AAA AIOPORIPININUNND =O 


SOON A NEW 9 OD NA NE WIN  O ONAN WN O ONO Er 


DWOOOOOOVOOOOVOOVOOVOVOOVOOOOWOOOOOOOOOOOOOOONOONON U-— 


0900 8F 6B Pus #*M<RB,R11> ; Save registers 
50  O0000000°EF D0 MOVL NETSGL_PTR_VCB,RO 3; Get the RCB pointer 
OA ED CMPZV #TR4SV-ADDR_AREA, - : Is this for area zero? 
00 58 0 #TR4$S_ADDR_AREA, RB, #0 
0 ig BNEQ 10$ :; Br if not, okay as it is 
0088 CO. OUrF: INSV RCB$B_HOMEAREA(RO) ,- ; Else, stuff our area into node address 
A #TR4$7_ADDR_AREA, - 
58 06 #TR4$S_ADDR_AREA,R8B 
58 mpcotaiedl DO 108: MOVL NETSGL-CNR_NADI,R11 ; Point at root of NDI database 
A 04 CLRL ; Start at beginning of List 
i) SSEARCH eql,ndi,l,add 3; Search for the right NDI 
0900 8F BA C POPR #*M<RBLRI I> ; Restore registers 
F 50 €8 : BLBS RO,15$ ; Br if success 
5A 09000000 EF D0 MOVL §NETSGL_DUM NDI R10 ; Return address of dummy NDI 
24 AA B0 A MOVW = RB,NDI-ADDTR105 : Stuff the address 
12 AA 5 BO MOVW RB, CNFSW_ID(R10) ; Here too 
50 01 »? 15$: pvt #1,R0 ; Assume success 


MOVSTR: 
SBW CNFSGET_FIELD ; Set field descriptor 
; Save status 

; Move the string 
Restore status 


MOVIT: MOVC R7, (RB), (R3) 
PO RO 


D 14 
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WOus000 PARAMETER SUBROUTINES g- -SEP-1 138 8}: 18: 4 ENETACE. eRe SNETCNFACT.MAR: 1 ° (46) 
] : ; -SBTTL MOVE PARAMETER SUBROUTINES 
C ; Subroutine to move CNF string field 
15¢ 6 MOVCSTR: 
15¢ BSB CNFSGET_FIELD 3; Set field descriptor 
15C¢ PUSHL ; Save statu 
15CB 59 MOV R7,(R3)+ ; Enter count (could be zero) 
! : af BRB OVIT : Move the string 
15D 36 8 
15D 97 PU 
15D 974 
1509 3975 
15DC 3976 


Macro V04-00 Page 89 an 


E 14 
access action 197 3E- 138% Oh: 18:88 AX/VMS r 
- 1984 02:18:01 NETACP.SRCINETCNFACT.MAR; 1 (47) 


NETCNFACT 
v04-000 SEP- 


- font ioures! ata 
FMT_CNT = FORMAT COUN 


15DD of8 -SBTTL FMT_CNT = FORMAT COUNTERS 
1500 79 ;+ 
! 44 2 ; FMT_CNT - Format counters 
1500 3982 ; INPUTS: R Address of source counter block (FMT_CNT only) 
150D 3985 ; R Address of table to drive counter formatting 
1500 5984 ; ie Address of next byte in output buffer 
1500 3985 ; R Number of bytes in source counter block 
15DD 39 § 3 R Pointer to source counter block (MOVE_FMT_CNT only) 
! BP 3 : RO Scratch 
1500 3 § : OUTPUTS: R Updated to next free byte in output buffer 
15DD y $ R2,R1 gerbage 
! 50D $34 ; R SS$_NORMAL 
1500 3993 : ALL other registers are preserved 
15DD 3994 ;- . : 
15DD 3995 . SAVE_PSECT 
00000056 338 .P NET_LOCK_CODE ,NOWRT,GBL 
boae 99 
056 3998 MOVE_FMT_CNT:: ; Move and format counters 
56 OD o828 999 PUSHL R6 ; Save R 
SE 00000064 8F C2 0058 4000 SUBL #CNT_FMT_BUFSIZ,SP ; Create work area on stack 
MOVL SP,R ; Point to it with R6 
56 SE 00 Bee +4 g i i 
0062 400 ; Lock out NETDRIVER and take a snapshot of the counters. While 
B88 rt 3 NETORIVER is locked out, clear the counters if its called for. 
0062 4006 DSBINT #NETSC_IPL ; Lock out Netdriver 
3E 88 0068 4007 PUSHR #*M<R1,R2,R3,R4,R5> ; Save regs 
66 61 52 : 006A 4008 MOVC3 2, (R15, (RO) : Move counters 
51 gf D Boe 4009 mMOva SP) ,R1 ; Get R1,R2 (counter descriptor) 
02 €1 0071 4010 BBC #NETSV_CLRCNT,- : If BC, don't clear the counters 
10 00000000‘ EF Bn58 4011 NETSGL_FLAGS,20$ 3 
81 OOOO 200" Fe 00 07 ang MOVL G*EXESGL_ABSTIM,(R1)+  ; Reset Abs-time since last zeroed 
5 04 C2 0080 401 SUBL #4, 3 Adjust bytes left in counter block 
eS 2° es. & 90 eC 0083 rete: MOVCS #0,(SP),#0,R2,(R1) ; Zero remaining counters 
E BA 0089 4015 20$: POPR #°R<R1,R2,R3,R4,R5> 3; Restore regs 
08B 4 1g ENBINT 3; Restore IP 
0B 10 43 401 BSBB FMT_CNT ; Format the counters 
+4 ; H § Done, restore the stack and return 
5E 00000064 8F (CO 0099 20 0 ADDL #CNT_FMT_BUFSIZ,SP ; Create work area on stack 
56 BED? 43 ‘8 1 POPL R6 ; Restore R6 
0 9A 4 g : Return to caller 
098 Pt 
bee Z ¢ FMT_CNT:: ; Format counters 
O98 2 § 3: Move ‘seconds since last zeroed’ in NICE format to output buffer 
66 OQ0000000°GF 66 (C3 096 4 8 SuBL3 (R6),G*EXESGL_ABSTIM,(R6) ; Get seconds since Last zeroed 
OOOOFFFF 8F 6 D1 AS 4 CMPL (R6) ,M°X<FFFFS ; Has counter overflowed? 
1B AA 4030 BLEQU§ 30$ ; If LEQU no 
66 1 A AC 4031 MNEGW #1, (R6) 3; Latch counter at max value 
83 C000 8F 8B AF 4 § 30$: OVW NE TSC NMACNT_SLZ,(R3)+ ; Enter i.d. of counter 
83 66 F 5 ? ? CVTLW = (RO), (R35) + : Enter ‘seconds since last zeroed’ 


access bakten 19 3Ee- 138% 0313388 AX/VMS Macro V04-00 Page dd, 


we CHP ACT = Configuration data base 
v04-000 FMT_CNT = FORMAT COUNTERS SEP=19 NETACP.SRCIJNETCNFACT.MAR; 1 
ef ¢ 5 ; Move each counter one at a time in NICE format to the output buffer 
52 3 g Bf 4 $ 40$: Movw (R5)+,R2 ; Get the next NICE counter i.d. 
BA 4 3 BEQL ; If EQL then done 
1 5 3 BC 4 MOVZWL (R5)+,R1 3; Get offset to counter value 
1 § C F 404 ADDL P ; Get pointer to counter value 
3 B0 ce 404 MOVW B ye 3; Enter NICE counter . 
52 52 02 OD EF O00C5 404 EXTZV #13,82,R2,R2 : Get width of counter 
CA 404 DISPATCH R2,- : Dispatch on width 
CA 4044 <- : 
CA 4045 <1, 70$>,- ; Byte 
CA 4 6 $¢° g $>,- ; Word 
CA 404 <3, 50$>,- ; Longword 
OCA 4048 > : 
Boe ¢ rs BUG_CHECK NETNOSTATE,FATAL 
83 81 B80 $8 4 af 198: MOVW (R1)+,(R3)+ ; Counter is a lLongword 
83 3] 90 00DB {828 $: vB (R1)+,(R3)+ ; Counter is a wor 
83 1 90 OODE 4055 70S: MOVB (R1)+,(R3)+ 3; Counter is a byte 
D4 11 OOE1 4054 B 40$ ; Loop 
O0E3 4055 1008: ; 
OOE to2$ 3; Done 
OOE3 405 5 
50 0000'8F 3C OO0E3S 4058 MOVZWL #SS$_NORMAL ,RO ; Always successful 
05 OO0E8 4059 RSB 3; Return 
O0E9 4060 
000015DD 4061 -RESTORE_PSECT 


ALL other registers are 
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v04-000 LOG_CO AYER = LOG ZERO COUNTER EVENT ioe 8} 13: 4 ENE TACE. eRe SNETCNFACT. MAR; 1 . (48) 
pe is -SBTTL LOG COUNTERS = LOG ZERO COUNTER EVENT 
4 ; LOG_COUNTERS - Conditionally log zero counter event | 
DD ; INPUTS: R11 CNR pointer 
DD : R10 CNF pointer 
DD R Scratch 
R Address of first byte past counter block 
R Address of counter block 
R EVC database i.d. 
; OUTPUT: R5,RO Garbage 


preserved. 
gl yt mp log zero counter event 


Fe Oe ae oe ot at ot ot ot ot ot ot ot ot ot ot to 


DOO OCCOCGOOOOCOOCOCOCOCOCOCOCOCOOOCOCOOOCOOOOOOOOOOO 


SOOO 000000 OOOO 09690009 09 090909 SI NINN NINN NINN PAA AAO 


LXRXP_EXPPEDPDAEPR PAPA PAD AAP sasresrssrsrsrnrrnwmsnnsmsmwnnn C= 
—OOOWNAUES WIN $$ O OO NAW WN 0 OD NAME WN O OONOUE WI 


a Be Ss Dd it a nd a et nt tt td 4 8 


DD 
DD 
DD 
DD 
DD 
DD 
DD 
02 DD #NETSV_CLRCNT,- s BC then counters weren't zeroed 
3A 00000000'EF DF NETSGL FLAGS ,c0$ ; 
55 00000000'EF —5 NETSAB-EVT WOE,R5 : Point to the common WQE 
1 AA EC CNFSW_TD(RTO) ,- ; 
12 a5 EF WOESW-REQIDT (RS) t Setup the CNF i.d. 
18 a 5 F1 R2,WQESL ve PKT(R5) ; Setup pointer to counter block 
1F AS. 5 5 F5 R2,R3,WQE$SB_EVL_DT2(R5) ; Setup size of counter block 
16 AS 5 FA R HaesB E vC_D TT (R5) 3; Setup database i.d. 
00¢ 2 BF A; #EVC ast DBR,- 3; Assume data base re-used event 
1C AS 0 WwOESW_ Evi_CODE(RS) 3 
01 04 #NETSO_LOGDBR,- ; If BS then data base re-used event 
10 00000000’ EF 06 NETSGLFLAGS fos : 
09 0c #EVCSC_N ; Else, assume zero counters event 
1C AS 3 poe ba Eve AEove tas ; 
04 1 #NETSO_ : If BC then zero counters event 
04 00000000'EF \s NETSGL_ Lacs 108 $ . 
08 1 #EVCSC_NMA_CTR 3; Else counter timer event 
1C AS 1A WQESW Evi CODE (RS) ; 
9E1° 30 1¢ 10$: BSBW NETSEOT. INTRAW ; Log it 
1F 20S: RSB ; Done 
20 
$8 
0 END 
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Symbol table - 4 ENETA P.S SNETCNFACT.MAR; 1 (48) 
NSPS$R_QUAL = 0 RCB$B_CNT_OPL = 4 
NSP$S_ACK_ = RCB$B_CNT_PFE = 9 
NSP$S_ACK"SP2 = RCB$B_CNT_RUL 2 38 
NSP$S_DATA_SP 2 RCBS$B_CNT_VER z 9 
NSPSS_FLW_CHAN = RCBSB_ETY = A 
NSP$S_FLW_DRV = RCB$B_HOMEAREA 5 8 
NSP$S_FLW_MODE = § RCB$B_MAX_AREA = C 
NSPSS_INF_VER = RCBSB_STATUS = B 
NSP$S_MSG_SP1 p 4 RCBSC_CNT_SIZE = 0 
NSP$S_NSPASG = 00 5 RCBSL_ABS_TIM = 000 
NSP$S_QUAL = 0 5 RCBSL_PTR_ADJ = 000 3 
NSP$S_QUAL_A = be RCBSL_PTR_AOA = 900 9 
NSP$S_QUAL_ALTFLW = RCBSL_PTR_LTB = 4 
NSP$S_QUAL_DATA = 00000001 RCBSL_PTR_OA = 0000001C 
NSP$S_QUAL_FLW = 4444 RCBSV_LVL2 = 00000000 
NSP$S_QUAL_ INF = 00000001 RCBSW_ADDR = 0000000E 
NSP$S_QUAL_MSG = 00000005 RCBSW_ALIAS = 0000008D 
NSP$S_QUAL_ SRV = 00000001 RCBSW_CNT_MLL = Q000009E 
NSP$S_SRV_| = 444 444 RCBSW_CNT_NUL = 0000009A 
NSPS$S_SRV_FLW = 0000000 RCBSW_ORT = QQOQ00AA 
NSP$S_SRV_SP1 = 0000000 RCBSW_LVL2 = QOO0000AC 
NSPS$V_ACK_NAK = 0000000C RCBSW_MAX_ADDR = 00000054 
NSPSV_ACK_| = 00000000 RCBSW_MAX = 00000068 
NSPSV_ACK_ = 0000000D RCBSW “HCOONT = 444 4s 
NSP$V_ACK_ VALID = 0000000F RCB_CRT_TA 0000007C R 03 
NSPSV_DATA_ = 00000005 SAVREG = 0000000C¢ 
NSPS$V_DATA_ = 00000006 SCAN_XWB 00000000 R 06 
NSPSV_DATA_OVFW = 00000007 scesce. NODENAME eeneeeee =X = 05 
NSP$V_DATA_SP = 00000000 SCS$GB_SYSTEMID aeeneere =X = 05 
SPSV_FLW_ = 00000002 Sides = 00000001 
NSPS$V_FLW_DRV = 00000004 5S$_BADPARAM aeneeeee =X 05 
SPSV_FLW_ = 00000005 $S$_DEVACTIVE eeeneeee =X 605 
NSPS$V_FLW_INUSE = 00000004 SSSLILLCNTRFUNC aeeneeee =X 05 
NSP$V_FLW_LISUB = 0000000 SS$_INSFARG aeeneeee =X = 05 
NSPSV_FLW_ = 4444 SS$_INSFMEM weeneree = = X 05 
NSPSV~FLW_SP1 = 0000000 SS$_NORMAL eeneeeee = X = 05 
NSPS$V_FLW_SP = tea: SS$_NOSUCHNODE aeeeeeee =X 05 
NSPSV_FLW_SP = 000000 SS$_UNREACHABLE aeeeeeee =X 05 
PSV"FLW_XOFF = 00000000 SS$-WRONGNAME aeeeeere§ =X = 05 
NSPSV~FLW = 990 001 SUPPRESS AREA 00000F38 RG 05 
NSPS$V_INF_VER = 000000 ? SYSSCRELOG eeeeeeee GX 05 
NSPS$V_MSG_INT = 9 SYSS$SGETJPI aeeeeere GX 05 
NSPSV_MSG_L = 00000004 SYSSPARSE eeeeeeee GX 05 
NSPSV_MSG_SP1 = 90090 SYSSWAITFR aeeeeeee GX 8 
NSP$V~SRV_01 2 SYSNODE_DESC 9090080 f 
NSPSV_SRV_EXT = 00007 TEMPRG = it ea 
V~SRV-FLW s 2 TEST_REACH 0 A R 05 
WSPSV_SRY SP1 = 5 4 TRSC_MAXHOR = 98 
“DSTCNK = 1 TRSC_NI_ALLEND1 = 04 As 
NSPSU- SRCLNK = ; TRSC_NI_ALLEND2 B ° 0 
081_LOGIN_VEC 48 R 03 TRSC_NI_ALLROU1 s B 
ORIGAP = 9 TRSC_NI_ALLROU2 = 0 
PNAME 4R 08 TRSC_NI_PREF IX = AA 
50 R 8 TRSC_NI-PROT = 60 
reeea” Eran ssanngss 8 TRRESpRT Athy = 109901 
RCB$B_ CNT_NO = $80000%4 94 TRESS GOAL RSG = 00 
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Symbol table a pest " A 
TR3$$$_QUAL_RTFLG : TRESS -OUAL 2 
TR3SC_ASZ_DATA . TR4SS-QUAL_ADOR . 
TR3SC_MSG_DATA . TR4$S"QUAL-RTFLG . 1 
TRESC-ASGCINIT. ; TReSScRTELG OT : 
TREE Rees = $3339 EER vGs : HBSsH 
TR3SC“MSG_STR2 = 90000058 TRese“TRERSC™ = 90000002 
TR3SC“MSG_VERF 00001 TRGSV"ADDR_AREA = 00000004 
TR3SM_MSG_CTL : TR4SV-ADDR DEST ° 
TRESM_MSG"RTH r 4 TROSV-RTFLG_O1 . 9 
TRESM_RTECG_PH2 = Bono h6 TROSV-RTFLG- INI = 000 
TRISM_RTFLG_ROR = 00000010 TR4SV-RTFLG_LNG ma S44 
TRSSRCQUAL : 09900000 TROSV-RTFLECRTS = 00000004 
TR3SS~QUAL ma ittittct TRGSV-RTFLG-VER = 90000006 
TR3$S—QUAL_MSG = 90000001 TR4SV-SCLASS_1 = 00000001 
TR3SS_RTFLE_01 = 00000003 TR4SV~SCLASS_BC = 90000004 
TRESVIMSG_CTL = 90000000 TROSV~SCLASS_METR = 90000000 
TRSSV-MSG_RTH me tsett TRGSV~SCLASS~SUBA = 9000000 
TRISV-RTFCG_O12 = 00000000 hen ges = 00000090 
TRESV_RTFLG- = 00000005 UCBSO-DWB_LIST = 00000090 
TR3SV_RTFLG_ = 00000007 UNARE” 0000044 R 02 
TR3SVIRTFLG_PH2 = a: UNAMES 0000040 R 02 
TRISV_RTFLG ROR = O9p000 WOE$B_EVL_DT! = QOOO001E 
TRESVERTFLG_RTS = Bo000006 WOESB~EVL-T2 = 0000001F 
TR4SSS_QUAL~ADDR = 90000000 WOE SL “EVL~PKT = boooore 
TR4S$$_QUAL“RTFLG = 00000000 WOE SWEVL CODE = BeoeheTS 
TRASSS_QUAL SCLASS = OCOObOAS WOE SWOREGTOT . 09000006 
Tmese Beg nibs = 93009048 wuass Accs = 9000055 
IRse-Be4 nib = 9998808 enh = 98888 
TRO$C“BCTSMULT = 00000008 XWB$B-LOGIN me 144 494 

-END NODE = 000400AA XWBSB_LPRNAM = BpCOCOsA 

=HIOR = 00000015 XWBSB-PRO = Boonober 
TR4SC_HSZ_DATA = 80000008 XWB$B-RID = Beonones 
TRESC_ASGLBERHEL = 90000008 XUBSBRPRNAM = 29000088 
TR4SC-MSG_LDATA as '4''4 4 XUBSB-STA = 00000016 
TROSCZPROLTYPE. 2 KBSB_TYPE = 9000008¢ 
TRGSC_RTROLVL - XUBSB-X7FLUCNT = Bonnenee 
me-fonat = 9 Wetton = Sonn 
TROSC_VER_HIB a 44 KUBSC~DAT = She ° 19 
TR4SC~VER~LOWY = BOR 8008 XWB$C"LOGIN . +? 

RSEe AEE = 99005 feta = 899885 
Werte citi ia testa HR 
TROSM-RTFLG-ROR . XUBSC“RPRNAR . } 
mese-oual = $000999 RoesesstAcces = an00000% 
TRGSS~ADDR_AREA = 00000006 XWBSCSTA- 
| 
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- Configuration data base access 
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rhe york ing set_Limit was 900 pages. 
24 bytes (476 pages) of virtual memory were used to buffer phe intermediate gage; 
There were 210 pages of symbol table space allocated to hold 3750 non-local and local symbols. 
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NETCNFACT - Configuration data base access action 16-SEP-1984 01:13:22 VAX/VMS Macro V04-00 Page 1 N 
Symbol table ° -SEP-1984 84:13:84 NETACP.SRCINETCNFACT.MAR; 1 . (4 )| v0 
XWBSW_CIl_ PATH s 110 
XWBSW "DECAY = 4 
WBSW_DLY_FACT = 2 
$W_OLY = 
XWBSW-ELAPSE = 4A 
_FLG = HS 
WBSW_LOCLNK 2 
XWBSW_LOCSIZ = 4 
$W_PAT = H 
XWBSW~ PROGRESS = 
XWBSW_REF CNT = ¢C 
XWBSW_REMLNK = C 
XWBSW_REM = A 
XWBSW_REMSIZ = 0 ¢ 
XWBSW_RE TRAN = 5 
XWBSW_R_REASON = 44 
XWBSW_SIZE = 08 
WBSwW_STS = 8p ? 
XWBSW_TIMER = Bo 
XWBSW_TIM_ID = 0000004 
XWBSW_TIM-INACT = 0000004¢ 
XWBSW_X_ REASON = 44 ea 
XWB$Z "NBC = 00000084 
doewereeseoeeoonaae + 
! Psect synopsis ! 
fewer ew en neem n er ece + 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$ 444 4644 ( 0.) 01 ¢ 41.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
NET_ IMPURE 000001 ( 304.) 8 ( ¢°} NOPIC USR CON’ REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
PUR BODO OS OF ( 199.3 05 ¢ -) NOPIC USR CON REL LCL NOSH EXE RD NOWRT NOVEC LONG 
SRMSNAM OOOOOOF ( 15.) 04 ¢ 4.) NOPIC USR CON REL’ LCL NOSH EXE RD WRT NOVEC BYTE 
T_CODE 00001620 ( 5664.) 05 ¢( 5.) NOPIC USR CON’ REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
NET_LOCK_CODE QOO000E9 ¢ 233.) 06 ¢ 6.) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
$ eer ocon en en ecen eax weno naae + 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 : 8:8 98 0: 0: on 
Command processing 124 :00:00. 0:00:03.7 
Pass 1711 :00:4 38 3: 1:02.7 
pyato}, table sort 1 : 9 4 :00:06.6 
Pass 1031 :00:12.1 :00:23.1 
Symbol table output 32 :00:00.7 :00:01.4 
peace synepe te gn oa 4 :00: 8 3: : 0:4 
ross-reference outpu :00:00. 
Assembler run totals 2938 1 88 C:01: a 
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4101 source Lines were read in Pass 1, progyc ing, 36 object records in Pass 2. 


86 pages of virtual memory were used to def macros. 
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! Macro Library statistics ! 


Genccseenessesacsesos eoeree + 


Macro seoeeat? name Macros defined 


a :(SHRLIBINMALIBRY. “ALB; 1 1 
“$ SDUA ‘pReTaGe EVCDEF MLB 1 
“$ ACP.OBJ NETDRV ALB: 31 2 
“$ NETAC cP. JINET. gms: 2 
-$ 18. MLB 4 
SpUA Eeysi 1838 STARLET.ALB:2 21 
Tetaie (all Libraries) 3 


3953 GETS were required to define 53 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LISS:NETCNFACT/OBJ=OBJ$:NETCNFACT MSRCS:NETCNFACT/UPDATE=(ENHS$:NETCNFACT) +EXECML$/LIB+LIB$:NET/LIB+LIB$:NETORV/LIB+SHRLIBS 
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